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VORWORT 


Dieses Buch enthält eine Sammlung von Wirtschaftsprogrammen für den 
Commodore 64. Diese in Basic geschriebenen Programme betreffen die Berei- 
che Finanzmathematik, Unternehmensforschung (Operations Research) und 
Betriebswirtschaft. 


Wirtschaftliche Fragestellungen treffen jeden von uns, sei es als Steuerzahler, 
Sparer oder Kreditnehmer. So werden hier für alle Praktiker, Studenten und 
Computerfans zahlreiche nützliche und anwendungsbezogene Programme aus 
vielfältigen Bereichen wie 


— Zins- und Renditeberechnungen 

Renten- und Tilgungsrechnungen 
Optimierungs- und Entscheidungstheorie 
Investitionsrechnung 

Lohnsteuer 

Abschreibungen 


vorgestellt. 


Das Magische Viereck 


Angestrebte wirtschafts - 
und finanzpolitische Ziele 


= 0 


[& 


Verbraucherpreise 


Außenwirtschaftliches 
Preisstabilität Gleichgewicht 


Bruttosozialprodukt 


Angemessenes 
Wirtschaftswachstum 
5 
200 610 © Erich Schmidt Verlag 


Die Programme sind so aufgebaut, daß neben den wirtschaftlichen Berechnun- 
gen z.T. auch grafische Ausgaben die Lösungen dokumentieren. So werden 
unter anderem die guten Farb- und Grafikmöglichkeiten des Commodore 64 
angewendet. Die Programme sind so aufgeschrieben, daß auch nur der Berech- 
nungsteil eingegeben werden kann. 


Zusätzlich sind alle Programme auf einer Diskette erhältlich, wodurch Sie sich 
die Mühe des Eintippens ersparen können. 


Wir hoffen, daß Ihnen die Programme für Ihre wirtschaftlichen Entscheidun- 
gen nützlich sind. 


Die Autoren 
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PROGRAMMIERHINWEISE 


Vor dem Eingeben der Programme möchten wir Ihnen noch einige Hinweise 
geben. 


Auf der nächsten Seite ist eine Übersicht über die häufig in den Programmen 
verwendeten Commodore-Steuerzeichen. Da diese im Commodore 64-Hand- 
buch nicht aufgeführt sind, ist es für den vielleicht weniger geübten Program- 
mierer eine nützliche Hilfe beim Eingeben der Programme. In einigen Program- 
men werden Steuerzeichen auch als CHR$-Werte angegeben. 


Wo in den Programmen grafische Ausgaben erfolgen, wurde dieser Teil deut- 
lich von dem Berechnungsteil abgegrenzt. Damit erhält man eine bessere Über- 
sicht über den Programmaufbau und kann nach Belieben die Grafik-Ausgabe 
weglassen. Wer seinen Commodore 64 jedoch voll ausnutzen möchte, wird 
darauf natürlich nicht verzichten. 


Nun wollen wir Sie aber nicht länger aufhalten und wünschen viel Erfolg bei 
Ihren wirtschaftlichen Unternehmungen. 


LURSOR-STEUERUNGS-SYMBOLE 


PRINT"STEUERZEICHEN IN EINER PRINT-ANWETSUNG" 


PRINT"TI 
PRINT" 
PRINT"S: 
PRINT" 


PRINT": 
PRINT" 
PRINT"I: 
PRINT" 
PRINT"M: 
PRINT" 
PRINT"T): 
PRINT" 


PRINT" 
PRINT" 
PRINT"® 
PRINT" 


ECLR-HOME-TASTE UND SHIFT 
BILDSCHIRM WIRD GELOESCHT" 
CLR-HOME-TASTE" 

AUSDRUCK BEGINNT LINKS OBEN" 


LURSOR-RECHTS-TASTE" 

AUSDRUCK BEGINNT EINE SPALTE WEITER RECHTS" 
CURSOR-LINKS-TASTE" 

AUSDRUCK BEGINNT EINE SPALTE WEITER LINKS" 
CURSOR-NACH-UNTEN-TASTE" 

AUSDRUCK BEGINNT EINE ZEILE WEITER UNTEN" 
CURSOR-NACH-OBEN-TASTE" 

AUSDRUCK BEGINNT EINE ZEILE WEITER OBEN" 


CTRL- UND 9-TASTE (ZUSAMMEN ’RVS ON’)" 
AUSDRUCK ERSCHEINT INVERS" 

CTRL- UND O-TASTE (ZUSAMMEN "RVS OFF?’)" 
INVERSER AUSDRUCK WIRD WIEDER ABGESCHALTET" 


FRINT"FARBCODES IN EINEM PRINT-BEFEHL" 


PRINT" 
PRINT" 
PRINT"EI 
PRINT" 
PRINT"= 
PRINT" 
PRINT" 
PRINT" 


ECTRL- UND 4-TASTE" 
AUSDRUCK WIRD TUERKIS" 
ECTRL- UND 4-TASTE" 
AUSDRUCK WIRD GRUEN" 
ETRL- UND 7-TASTE" 
AUSDRUCK WIRD BLAU" 
CTRL- UND 8-TASTE" 
AUSDRUCK WIRD GELB" 
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BORDABPFYTT = 20 


anghzenper ne 


Der typische Buchhalter des 19. Jahrhunderts (Gemälde von Anton Müller) 
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1. WOCHENTAGSBESTIMMUNG 


Bei Zinsrechnungen, Zahlungsfristen usw. ist es wichtig zu wissen, auf welchen 
Wochentag ein bestimmtes Datum fällt. Zur Wochentagsbestimmung gibt es 
mehrere Verfahren. Bekannt ist das Verfahren von Zeller (siehe z.B. [6]) oder 
die Ermittlung über das Julianische Datum, wie es z.B. in der Raumfahrt und 
der Astronomie geschieht. 


Zum folgenden Programm 


Für ein beliebiges Datum zwischen 1901 — 2099 wird der Wochentag durch 
Zählung der Tage ab dem 1.1.1901 bestimmt. Für das Jahr J gibt 


(J-1901) - 1461/4 
die Anzahl der Tage seit dem 1.1.1901 bis zum 31.12. des Vorjahrs. Dazu 
muß noch die Nummer des Tages im laufenden Jahr gezählt werden. 
Die Monatsersten eines Nichtschaltjahres haben die Nummern 
0,31, 59,90, 120, 151, 181, 212, 243, 273, 304 und 334. 


Diese Zahlenfolge kann durch den Term 
INT((158*M-157/5)+(M+1)*(M>2) 


beschrieben werden; dabei hat der Boolesche Term M>2 in CBM-BASIC 
den Wert 


—1 für M>2 
0 für MS2 


(M>2) = 


Bei Schaltjahren erhöht sich die Tageszahl in den Monaten März bis Dezember 
um eins; dies leistet der Term 


(INT(A/4)=A/4)*(M>2). 
Da der 1.1.1901 ein Dienstag war, kann durch Berechnung des Siebenerrestes 
der gesuchte Wochentag bestimmt werden. Es gilt die Codierung: 


O = Sonntag, 1 = Montag, 2 = Dienstag usw. 
Beispiel 


Eingabe des Datums 1.1.2000 in der Form 01.01.2000 liefert den Wochentag 
Samstag. 
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Die Wochentage und ihre namensgebenden Planeten 


Montag 


(€ Mond 


Mittwoch 
Samstag Merkur 
Saturn 


Freitag 


2 Venus 


Donnerstag 
Jupiter 


Or 6) Sonntag 
Mars Sonne 
Dienstag 
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100 REM aneuennannnnn Medesase ER ae WOCHENTAGSBESTIMMUNG 
120 PRINT" 3 WOCHENTAGSBEST IMMUNG ag 

IS REN See et ut EINGABE 
130 PRINT" DATUM IN DER FORM TT.MM.JJJJ EINGEBEN" :PRINT:PRINT 
140 INPUT" DATUM";D$ 

150 T=VAL (MID$(D$,1,2)) 

160 M=VAL(MID$(D$,4,2)) 

170 J=VAL(MID$(D$,7,4)) 

180 IFT>31 OR M>12 THEN PRINT" EINGABEFEHLER'":G0TO 140 

190 IFJ<1901 THEN PRINT" EINGABEFEHLER'":60T0 140 

195 BE ee Na BERECHNUNG 
200 GOSUB 300 

210 D=D-7*INT(D/7) 

220 FOR I=0 TO & 

270 READ W$(I) 

240 NEXT I 

250 REM... a ee ee ee u... AUSGABE 
260 PRINT"H DER ";MID$(STR$(T),2,2)". "MID$(STR${M),2,2)5 

265 PRINT". "MID$(STR$(J),2,4)5 

270 PRINT" IST EIN "5W$(D)5".":PRINT:PRINT: PRINT: RESTORE 

280 PRINT: INPUT"WEITER J/N"3A$ 

290 IFA$="J" THEN GOTO 120 

295 END 

I EN ee Due Be nee TAGESNUMMER AB 1.1.1901 
310 D=INT((J-1901) 1461/74) +1+T+INT ( (159*«M-157) /5) 

320 D=D+(M>2)#(M-(INT(J/4)<£J/4)) 

339 RETURN 

290 DATA SONNTAG, MONTAG, DIENSTAG, MITTWOCH 

400 DATA DONNERSTAG, FREITAG, SAMSTAG 

READY. 
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WOCHENTAGSBEST IMMUNG 


DD Be 
| WOCHENTAGSBESTIHmUNG | 


DATUM IN DER FORM TT.MM.JJJJ EINGEBEN 


DATUM? 29.02.1784 


DER 29.2.1984 IST EIN MITTWOCH. 


WEITER J/N? J 


DATUM IN DER FORM TT.MM.JJJJ EINGEBEN 
DATUM? 01.01.2000 


DER 1.1.2000 IST EIN SAMSTAG. 


WEITER J/N? N 


READY. 
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2. BEWEGLICHE FEIERTAGE 


Zur Terminplanung und Bewertung von Umsatzstatistiken ıst die Bestimmung 
der beweglichen Feiertage von Bedeutung. 


Seit dem Konzil von Nicaa (325 nach Chr.) ist das Osterfest auf den ersten 
Sonntag nach ddem Vollmond festgelegt, der dem Frühlingsanfang (Frühlings- 
Tagundnachtgleiche) folgt. Da das Sonnenjahr kein Vielfaches der Mondperio- 
de von 29,5 Tagen ist, verschiebt sich somit der jährliche Ostertermin. 


Verfahren zur Bestimmung des Osterdatums stammen von dem Astronomen 
Aloysius Lillius und dem Jesuiten Christopher Clavius und später von dem 
Mathematiker Carl Friedrich Gauß. Die Gaußsche Osterformel ist in [6] darge- 
stellt. 


Zum folgenden Programm 


Das Programm berechnet den Termin des Osterfestes für die Jahre 1901 bis 
2099 nach der Gaußschen Osterformel. 

Bei Kenntnis des Osterdatums lassen sich auch die übrigen beweglichen Feier- 
tage berechnen: Es liegt 


Rosenmontag 48 Tage vor 
Christi Himmelfahrt 39 Tage nach 
Pfingstsonntag 49 Tage nach 
Fronleichnam 60 Tage nach 


Ostern 


Mit Hilfe der in Programm 1 verwendeten Tageszählung können die Zeitpunkte 
der genannten Feiertage bestimmt werden. 


Beispiel 


Für das Jahr 1984 liefert das Programm 
Rosenmontag 5. März 

Östersonntag 22. April 

Christi Himmelfahrt 31. Mai 
Pfingstsonntag 10. Juni 

Fronleichnam 21. Juni 
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100 
110 
115 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
260 
270 
280 
290 
300 
310 
320 
330 
340 
330 
360 
370 
380 
385 
3?0 
395 
400 


REM.o.2ueensennonnnennunsnennunne nun nn nn. BEWEGLICHE FEIERTAGE 
PRINT"IN 34 AUSGABE VON BEWEGLICHEN FEIERTAGEN " 
REM. osuannousesunnuncn ee Snunenuneruune a „EINGABE 


PRINT: INPUT" WELCHES JAHR”"5J 

IFJ<1901 OR J>2099 THEN PRINT"ANDERES JAHR EINGEBEN":GOTO 120 
PRINT" Mei. BEWEGLICHE FEIERTAGE IM JAHR"5J 

FORI=2 TO 6 

READ M$(T) 

NEXT I 

REN. ass ne none nunuunsnnne BERECHNUNGEN 
=J-INT (J/19) #19 

B=J-INT(J/4)#4 

C=J-INT(J/7)%#7 

D=19#A+24:D=D-INT (D/30) #30 

E=2#B+4xC+6*D+5:E=E-INT(E/TI)#7 


F=D+E-9 

N=F+90- (INT (J/4)=J/4) 

REM ans a ea areas AUSGABE 
PRINTCHR$ (150) "if ROSENMONTAG "s:M=N-48 
GOSUB 405 

PRINT" OSTERSONNTAG "3:M=N 

GDSUB 405 

PRINT” CHRISTI HIMMELFAHRT ":M=N+37 

GOSUB 405 

FRINT" FFINGSTSONNTAG "2:M=N+49 

GOSUB 405 

PRINT" FRONLEICHNAM "72M=N+60 

GOSUB 405 

PRINTCHR$ (154) 

RESTORE 


PRINT: INPUT"WEITER J/N":A$ 
IFA$="J" THEN GOTO 110 
END 
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405 REM. „onuseounnuunsonununn FE SE unasunnnsnnne DATUMSBERECHNUNG 
410 FOR I=64 TO 2 STEP -1 


420 T=INT( (158#1-157)/5)+(1>2)*(I-(INT(J/4)<J/4)) 
430 IF M>T THEN PRINTM-T3"."3M$(1) "M":RETURN 

440 NEXT I 

460 DATA FEBRUAR, MAERZ,APRIL,MAI, JUNI 


READY. 


| BEWEGLICHE FEIERTAGE | 
AUSGABE VON BEWEGLICHEN FEIERTAGEN 


WELCHES JAHR? 1984 


BEWEGLICHE FEIERTAGE IM JAHR 1984 


ROSENMONTAG 5 „MAERZ 
OSTERSONNTAG 22 „APRIL 
CHRISTI HIMMELFAHRT 31 „MAI 
PFINGSTSONNTAG 10 „JUNI 
FRONLEICHNAM 21 „JUNI 


WEITER J/N? J 
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AUSGABE VON BEWEGLICHEN FEIERTAGEN 


WELCHES JAHR? 1985 


BEWEGLICHE FEIERTAGE IM JAHR 1985 


ROSENMONTAG 18 „FEBRUAR 
DSTERSONNTAG 7 .AFFIL 
CHRISTI HIMMELFAHRT 1& „MAI 
FFINGSTSONNTAG 26 .MAI 
FRONLE ICHNAM 6 . JUNI 


WEITER J/N? J 


AUSGABE VON BEWEGLICHEN FEIERTAGEN 


WELCHES JAHR? 2000 


BEWEGLICHE FEIERTAGE IM JAHR Z06G 


ROSENMONTAO & „MAERZ 
US TERSONNTAG Zu „APRIL 
CHRISTI HIMMELFAHRT 1 .JUMI 
FE INGSTSONNTAG 11 .ZUNI 
FRONLE IEHNAM ZE «JUNI 


WEITER JUN? N 
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3. DIFFERENZ ZWISCHEN 2 TERMINEN 


Fur Zinsberechnungen, Wechseldiskontierung u.a. benötigt man die Kenntnis 
der Anzahl von Tagen zwischen zwei Terminen. 

Dabei ıst zwischen privat- und handelsrechtlichen Vorgangen zu unterschei- 
den, da bei letzteren das Bankjahr mit 360 Tagen festgesetzt ist. Da hierbei 
alle Monate einheitlich zu je 30 Tagen gerechnet werden, ist das Bankjahr 
rechnerisch sehr einfach zu handhaben. 


Zum folgenden Programm 


Das folgende Programm liefert die Anzahl von Tagen zwischen zwei Terminen 
nach dem bürgerlichen Kalender. Es benützt das Verfahren der Tageszählung 
seit dem 1.1.1901, wie es in den Programmen 1 und 2 verwendet wurde. 


Beispiel 


Ein am 5.8.1942 Geborener ist am 31.12.2000 21333 Tage alt. Zu beachten 
ist, daß Tage und Monate zweistellig eingegeben werden müssen. 
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100 
120 
125 
130 
140 
145 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
295 
300 
310 
3520 
330 


REM: an SS nn DIFFERENZ ZWEIER TERMINE 
PRINT" 3 DIFFERENZ ZWISCHEN ZWEI TERMINEN = 

REM» Sa ir rd EINGABE 
DIM D(2) 

PRINT"" TERMINE IN DER FORM TT.MM.JJJJ EINGEBEN" 

REM. asususonuanenunnnuu nn usa nun nn ee BERECHNUNG 
FOR I=1T0 2 

PRINT"M"3 15 "TERMIN"5: INPUT D$ 

T=VAL (MID$(D$,1,2)) 

M=VAL {MID$ (D$,4,2)) 

J=VAL (MID$(D$,7,4)) 

IF T>31 OR M >12 THEN PRINT"M EINGABEFEHLER!":GOTO 160 

IF J<1901 THEN PRINT"M EINGABEFEHLER!": GOTD 160 

GOSUB 300 

D(I)=D 

NEXT I 

D=ABS(Dt1)-D(2)) 

REM. ooassosuunususnanuue nun nn nn es nun nun nun nn un nn ne „AUSGABE 
PRINT" "IM DIFFERENZ BETRAEGT ="5D; "TAGE": PRINT:PRINT: PRINT 

END 

REM. -uoossunnenununnenunn nun nen TAGESNUMMER SEIT DEM 1.1.1901 
D=INT ( (J-1901) #1461/4) +1+T+INT ( (158#+M-15I/I) 

D=D+ (M>2) # (M- (INT (J/4)<J/4)) 

RETURN 


READY. 


| 
| DIFFERENZ ZWISCHEN ZWEI TERMINEN 


Ms PRREE BEER ESSEN: ER. SIE BEN ANEREERI CR SASHA PEBER CAR EEE IE FREE DERLEBEBER | 


DIFFERENZ ZWISCHEN ZWEI TERMINEN 


TERMINE IN DER FORM TT.MM.JJJJ EINGEBEN 


1 TERMIN? 31.12.2000 


2 TERMIN? 05.08.1942 


DIFFERENZ BETRAEGT = 21333 TAGE 
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4. KALENDERDRUCK 


Zum folgenden Programm 


Das Programm liefert einen vollständigen Jahresüberblick nach Wochentagen. 
Der Jahreskalender wird tabellarisch ausgedruckt und ist daher in Drucker- 
version geschrieben. Als Muster kann der folgende Programmausdruck dienen. 


Weltkalender mit festen Wochentagen (1937 vom Völkerbund vorgeschlagen, 
1954 von der UNO befürwortet) 


Januar Februar März 

April Mai Juni 

Juli August September 
Oktober November Dezember 


Sonntag 
Montag 


Dienstag 
Mittwoch 
Donnerstag 
Freitag 
Samstag 


W = Weltfeiertag 
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5 


las ae ein KALENDERAUSDRUCK 


REN: Sue an erben sassene EINGABE 
DIM T(126),M (12) 


O PRINT"JM AUSGABE DES GESAMTKALENDERS AUF DEM" 

FRINT" #DRUCKER (DIE DDER" 

30 PRINT"M ANGABE EINES MONATS AUF DEM" 

40 FRINT" S3BILDSCHIRM (BE GEWUENSCHT" 

530 PRINT" STREIEISTEIERBN" 5 

60 INPUT A$ 

70 IF (A$S>"B"ANDA$<I>"D") THEN GOTO 50 

80 PRINT" MBBIGEWUENSCHTES JAHR EINGEBEN"; 

90 INPUT JA 

100 IF A$="B" THENPRINT"MBRWELCHER MONAT (1-12)"5: INPUTMO: GOTO130 
110 IF A$="D" THEN OPEN 1,4: M=12 

120 PRINT#1,SFE (2 CHR$ (LI) CHR$ (II JA 

130 REM... vn... Douoeuunnssneannnnen neuen nen Buoenunon BERECHNUNGEN 
140 JA=JA-1 

150 5=37+JA+INT (JA/743 -INT (JA/100) +INT (JA/400) 

160 5=1NT ( (5/7-1NT(S/N)%*7+.D-1 

170 IF 5S=-1 THEN 5=& 

186 FOR I=iT012: READ M(D: NEXTI 

i70 JA=JAt+1 

z200 IF INT(JA/4)-JA/4Z>G THEN 220 

210 IF INT(JA/1COI-JA/100X>0 OR INT (JA/400)-JA/400=0 THEN M(2)=29 


re {N N) 


rJ 
— 


„20 B$ti?=" # *" 
z20 B$iZ3=" SO MO DI MI DO FR 5A" 
2a. EDER" 


250 B$i4)=" * SC MO DI MI DO FR SA *" 
2580 PRINT: FRINT 
272 IF A$="E" THEN GOTO 846 
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280 REM. „seco n0.. u... usa eier DRUCKERAUSGABE 
290 FOR K=1T04 


200 PRINT#1: PRINT#1: PRINT#1: PRINT#1 

SIO- REM niet UEBERSCHRIFTEN 
320 FOR I=1 TO 3 

330 READ M$ 

340 PRINTH1," re" sMg; "ee"; 

350 IF I=3 THEN PRINT#1: 60T0 370 

260 PRINT#1," > 

370 NEXT I 

380 FOR I=1T0 3 

390 FOR J=1 TO 3 

400 FRINT#1,B$(I)5 

410 IF J=Z THEN G0TO 450 

420 PRINT#L," "; 

430 NEXT J 

440 FRINT#1 

A50 NEXT I 

560 REMenaeeenannnnnunneennannennnn nenn. BERECHNUNG DER WOCHENTAGE 
470 FORJ=0T02 

480 MO=MO+1: D=0: V=J#7 

490 FOR WT=1T0 7 

500 IF D>=M{MO) THEN S=WT-1: WT=B: GOTO 530 
510 D=D+1: T{WT+S+V)=D 

520 IF WT+S>=7 THEN S=0: V=V+21: WT=B 

530 NEXT WT 

540 IF D>=M{MD) THEN GOTO 560 

550 G0T0 490 

S60 NEXTI 
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370 
380 
370 
600 
610 
620 
630 
640 
650 
660 
670 
680 
670 
700 
710 
720 
720 
740 
750 
760 
780 
70 
BOO 
810 
820 
840 
850 
860 
B70 
880 
870 
700 
910 
920 
720 
940 
950 


REN. susanne Snennnsnennnennenn nn. «AUSDRUCK DER WOCHENTAGE 


FOR I=1 TO 3 

PRINT#1," "5 

FOR J=1 T0 7 

IF T(Z)=0 THEN PRINT#,"” ";3: GOTO 640 

PRINT#1,RIGHT$ (STR$(TII), 235" "5 

Z=7+1 

IF Z>126 THEN 700 

NEXT J 

IF I=3 THEN PRINT#1: GOTO 590 

PRINT#1," "; 

NEXT I 

FOR I=1 TO 126 

T(D=0 

NEXT I 

NEXT K 

PRINT#1,CHR$ (147) 

CLOSE1 

GOTO 1290 

REM. „ou nuuuununnununuunnnunnnerun neue nnennennnnn nn nn nen. DATEN 
DATA 31,28,51,50,351,30,31,31,50,31,30, 51 

DATA "* JANUAR *%*","%* FEBRUAR *","#* MAERZ *x#","*%* APRIL %*%*" 
DATA "##% MAI 8%", "#8 JUNI #8%","#%8 JULI #8%#","%* AUGUST *%" 
DATA " SEPTEMBER ","* OKTOBER *#"," NOVEMBER *"," DEZEMBER #" 
REM. ouusuounununnnn en nn nn een nun nenn nenn nun BILDSCHIRMAUSGABE 
FOR I=1 TO MO 

READ M$ 

NEXT I 

PRINT"II SEHR" MS JAS RER" 

PRINT" #"5SPC(36)5"%*" 

PRINT B$(4): PRINT" "; 

FOR Z=1 TOD 38 

FRINT"*"5 

NEXT Z 

PRINT 

PRINT" *"5SPC(36)5"*"5 
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960 REM..„»ueuueenunuunennnnnennnnun nn. BERECHNUNG DER WOCHENTAGE 
970 FOR J=0 TO MO-1 


980 M=M+1: D=0: V=0 

990 FOR WT=1T0 7 

1000 IF D>=M({M) THEN S=WT-1: WT=8: GOTO 1040 
1010 D=D+1:1IF M=MO THEN T(WT+S+V)=D: GOTO 1050 
1020 T(O)=D 

1030 IF WT+5>=7 THEN 5=0: V=V+7: WT=B 

1040 NEXT WT 

1050 IF D>=M{M) THEN GOTO 1070 

1060 GDTO 9790 

1070 NEXT J 

1080 REM. „.oounuonsce Snunusensuunnn suuennnc. „AUSGABE DER WOCHENTAGE 
1090 Z=1 

1100 PRINT 

1110 PRINT" * "5 

1120 FOR I=1 TO 7 


1130 IF T(ZI=0 THEN PRINT" "ss: GOTO 1150 
1140 PRINT RIGHT$ (STR$(T(ZJ)),2)5" "; 

1150 Z=Z+1 

1160 IF Z>42 THEN 1200 

1170 NEXT I 


1180 PRINT"IK" 

1190 PRINT" *"3SPC(36)5"*"35: GDTD 1100 
1200 PRINT"I" 

1210 PRINT" #"3SPC(36)3"*": PRINT" "5 
1220 FOR Z=1 TO 38 

1230 PRINT"x"; 

1240 NEXT Z 

1250 PRINT 

1260 FOR I=1 TO 42 

1270 T{N)=0 

1280 NEXT I 
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1290- REM. sans 604406 nu... ennnneunnenenennnenennnn nn. WIEDERHÜLUNG? 
1300 PRINT" M" 


1310 INPUT "WEITER J/N"5A$ 
1320 IF A$="J" THEN MO=0: M=0: D=0: V=0: RESTORE: GOTD 10 
1330 END 


READY. 


| | 
| KALENDERAUSGABE 


EREHEEERERR OKTOBER # 1983 KRRRRKEREER 
* * 
«50 MO DI M DO FR 5A * 
ES 5 2 2 2 5 2 2 2 2 2 2 2 2 272 23 277 212 2 2 2 2 2 2 22 27 2 2 2 220 


rJ 
A 
B- 
[n 
O- 
SQ 
0 


16 17 18 197 20 21 22 


3 41 8 2 27 28 29 


30 531 


Pe" Ve Ve Eee Se ee Ge ee Ze Se 
Fe Er se Be Be "Ge Ge Ge Ge Se 


KREARRERKKERNKRRHHNHTKNN TERN RN NN NH N N NR 


WEITER J/N? N 


READY. 
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#r#%## JANUAR 80088 
%* *+ 
50 MO DI MI DO FR SA 
LE 3 3 00 0 2 2 00 I 8 0 2 2 2 2 2 ıc 
1234567 
B 910 11121314 
15 16 17 18 19 20 21 
22 23 24 25 26 27 28 
29 30 31 


#r%%%% APRIL Hra80% 
* * 
So MD DI MI DO FR SA 
Lg E 3 202 5 275 22 2 272 20272 272 2 
u u ee ee - ; 
8 710111213 14 
15 15 17 18 19 20 21 
22 23 24 25 26 27 28 


29 530 


KEREEHE ILL] KARRR88 
* + 
So MD DI Mi DO FR SA 
KEEHRRKHNNNNNRHERTNRE 
1 27 = .4.00.26% 8 
B 71211 1Z 173 114 
FARB II. 21 


1& 

L 

nn = [4 u Se Zn 
23 28: 293.26 27.28 
A 


#»4#+82%%4 OKTOBER ###%%# 
* + 
SZ: ME DI MI TO FR SA 
EICHE 

ı 2 34 53 6 
Pal = ae 0 2 ee I 


I 15 15 17 18 19 20 
er ee, 
28 29 20 3 


1784 


##%#%#%# FEBRUAR ##%%# 
* * 
So MO DI MI DO FR SA 
ES x 202 212 2 2 22 2 227 2 2 2 2 2 2 
iz 34 
3678 91011 
12 12 14 15 16 17 1B 
19 20 21 22 23 24 25 
26 27 28 20 


KUN MAL KRANKER 
* # 
SO MO DI MI DO FR 5A 
KENKKERKKKRTRKTRRTHRN 
1.2 32 5 
& 758 910 11 12 
13 14 15 16 17 18 197 
20 21 22 23 24 25 26 
27 28 29 30 31 


EEE AUGUST KRRRRR 
* * 
so MO DI MI DO FR SA 
FHHHHIHHIIHIENER 

123 4 
367981011 
12 15 14 15 16 17 18 
19 20 21 22 25 24 25 
26 27 28 29 50 31 


%*%*#%*%# NOVEMBER #%*%%%* 
4 * 
50 MO DI MI DO FR SA 
2 2 22 2 2 2 2 2 2 22 2 22 2 2 2 23 
125 
456 78 9710 
11 12 13 14 15 16 17 
18 19 20 21 22 23 24 
25 26 27 28 29 30 
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##%#%%%# MAERZ ERRR8 
* * 
SD MO DI MI DO FR SA 
ES 2 2 2 2 2 2 2/2 2 2022 202 2 7 22 
123 

456 78 710 

11 12 13 14 15 16 17 
18 19 20 21 22 23 24 
25 26 27 28 29 30 31 


HERR JUNI Kar 
* * 
50 MO DI MI DO FR SA 
LE 25 2 2 2 27272 272 2 272 275 27222 
1 2 

3456 7989 

10 11 12 13 14 15 16 
17 18 19 20 21 22 23 
24 25 26 27 28 29 50 


*#%%#%*% SEPTEMBER #%*%#% 
* # 
50 MD DI MI DO FR SA 
a 2 3 2 2 2 2 2 22 2 2 2 2 2 277 227. 
1 
23456 798 
9 10 11 12 13 14 15 
16 17 18 19 20 21 22 
23 24 25 26 27 28 29 
30 


**%*%#% DEZEMBER ##%%%# 
* * 
50 MO DI MI DO FR SA 
LS 2 2 2 2 2 2 2 2 22 2 2/2 2 2/2 220 
1 

23456 78 

910 11 12 13 14 15 

16 17 18 19 20 21 22 
23 24 25 26 27 28 29 


30 31 


zu””%% JANUAR #r8208# 
* * 
50 MO DI MI DO FR SA 
EHRE 
1 
23456 78 
910 11 12 13 14 15 
16 17 18 19 20 21 22 
23 24 25 26 27 2B 29 
30 31 


“unuus APRIL #088%8% 
* * 
50 MO DI MI DO FR SA 
ES I 2 2 2 22 2 2 2 2 2 2 2 2 2 277 
1 
2345678 
910 11 12 13 14 15 
16 17 18 19 20 21 22 
23 24 25 26 27 28 29 
50 


EEE JULI KERR0RH 
* * 
50 MO DI MI DO FR SA 
2 2 2 2 202 2 22 2 22 2 2 2 277 22 
1 
23456 78 
910 11 12 13 14 15 
16 17 18 19 20 21 22 
25 24 25 26 27 28 29 
30 31 


##%%#%#%# OKTOBER ##%%% 
%* * 
so MO DI MI DO FR SA 
REUKRKRIKIHNTRNNN IR NIN N 

12345 67 
8 71011 112 13 14 
15 16 17 18 19 20 21 
22 25 24 25 26 27 28 
29 30 31 


vielele 


*#2#%*%# FEBRUAR ##8%#% 
* * 
50 MO DI MI DO FR SA 
BARRIERE 
12345 
6 78 9101112 
13 14 15 16 17 18 19 
20 21 22 23 24 25 26 
27 28 29 


KUH MAI SRuREE8 
+ * 
So MO DI MI DO FR SA 
ARHHHHHHHHHIHHHNNNR 
12345 %& 
78 710111213 
14 15 16 17 18 19 20 
21 22 23 24 25 26 27 
28 29 30 31 


“r%%% AUGUST #088%% 
* * 
50 MO DI MI DO FR SA 
RR IEN N 
12345 
6 78 9101112 
15 14 15 16 17 18 19 
20 21 22 23 24 25 26 
27 28 29 50 31 


##%%% NOVEMBER #%#%%* 
* * 
SO MO DI MI DO FR SA 
KEUKKRKINNKHUNNNNNRTNR KR 
1254 
356798 91011 
12 153 14 15 16 17 18 
19 20 21 22 23 24 25 
26 27 28 29 30 


30 


#“%%2%%% MAERZ KR808% 
* * 
SO MO DI MI DO FR SA 
RR 

1234 
3 6 78 91011 
12 13 14 15 16 17 18 
19 20 21 22 23 24 25 
26 27 28 29 30 31 


KENHERE JUNI KERR2E% 
* * 
50 MD DI MI DU FR SA 
LE 2 2 2 202 212 2 217 2 2 212 2 2 22 2 

123 
456 78 910 
11 12 13 14 15 16 17 
18 19 20 21 22 23 24 
25 26 27 28 29 30 


**#%% SEPTEMBER ##%# 
* * 
50 MO DI MI DO FR SA 
RAR 

12 
3456 7989 
10 11 12 13 14 15 16 
17 18 19 20 21 22 23 
24 25 26 27 28 29 30 


#*#%%# DEZEMBER ##0%% 
# * 
SD MD DI MI DO FR SA 
ES 2 2 2 2 2 2 2 2 2 2 2 7 2 7 2 207; 

1 2 
34565789 
10 11 12 153 14 15 16 
17 18 19 20 21 22 23 
24 25 26 27 28 29 30 
31 


3. ZINSRECHNUNG 


Der Zinsrechnung liegt die bekannte Zinsformel 
K.p-t 
360 - 100 
zugrunde, dabei ist 


der Zinsertrag in DM 

das Kapital in DM 

der jährliche Zinssatz in % 
die Zeit in Tagen. 


Jede der 4 Größen kann mit der Zinsformel aus den übrigen berechnet werden. 


Die Frühgeschichte des Geldes 


Silbertetrodrachme vor: Athen (um 460 v. Chr.) Griechische Münze mit dem Kopf Solidus aus Gold mit dem Kopf 


Vorderseite: Rückseite: Eule des Poliorketes von Makedonien Konstantins des Großen 
Kopf der Göttin Athene (306 - 283 v. Chr.) (um 280 - 337 n. Chr.) 


Chinesische Käschmünze Mainzer Pfennig (um 780! Hohlpfennig Brakteot) Mario-Theresientoler 
(500 v. Chr. - 1912) Die Buchstoben CAROLUS sind Heinrichs des Löwen (1129 - 1195) Zahlungsmittel bis in dıe 
das Signet Karls des Großen 2. Hälfte des 12. Jahrhunderts Gegenwart !z. B. in Afrıka! 
& (742 - 814} 
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Zum folgenden Programm 
Nach Eingabe von 1 bis 4 werden folgende Größen berechnet: 


1 _ Zinsertrag 

2  Zeitin Tagen 
3 Kapital 

4 Zinssatz 


Die jeweils noch fehlenden Größen werden abgefragt. 


Beispiel 


Ein Kapital von 4000 DM wird 144 Tage auf einem Sparkonto zu 4,5% ver- 
zinst. Das Programm liefert den Zinsertrag: 72 DM. 
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100 
120 
125 
130 
140 
150 
160 
170 
175 
180 
170 
200 
205 
206 
210 
215 
220 
230 
240 
250 
260 
270 
280 
300 
310 
320 
330 
340 
350 
360 


REM: 255.0. .uuunneonuensneununnnennne en ZINSRECHNUNG 
PRINT" 3 ZINSRECHNUNG 2 

REM. „unoaoucau are ee EINGABE 
PRINT" MM ZINSERTRAG (1), ZEIT(2), KAPITAL(FI" 


PRINT"S ODER ZINSSATZ (4) GESUCHTERT" 

PRINT " Sinfateieieie]" 

INPUT" "5A 

IF(A<X1 OR A>4) THEN PRINT" 1-4 EINGEBEN'!": GOTOD 150 

PRINT " . 

DEF FNR(X)=INT (100%*X+.5)/100 

REM sw sn „uneunanncn ce. « UNTERPROGRAMME BERECHNUNG 
DN A GOSUB 220,300, 380,460 

PRINT: PRINT:PRINT:PRINT" WEITERE BERECHNUNGEN ERWUENSCHT" 
INPUT" J/N";W$ 

IF W$="J" THEN GOTD 120 

END 

REM. ass a ana DZ INSERTRAG BESUCHT 
PRINT: INPUT" KAPITAL"5SK 

PRINT: INPUT" JAHRESZINS IN %"5P 

PRINT: INPUT" ZEIT IN TAGEN":T 

Z=K#Px*T/ 36000 

PRINT" MeM ZINSERTRAG ="3FNR(Z)5 "DM" CHR$ (154) 

RETURN 

REMi. sau ee 
PRINT: INPUT" KAPITAL"SK 

PRINT: INPUT" JAHRESZINSSATZ IN %"5P 

PRINT: INPUT" ZINSERTRAG" 5 

T=7*36000/K/P 

PRINTCHR$ (150) "Mel ZEIT ="5 INT (T+.59) 5 "TAGE"CHR$ (154) 
RETURN 


.oueuensuennnnne ZEIT GESUCHT 
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380 
390 
400 
410 
420 
430 
440 
460 
470 
480 
490 
300 
310 
320 


REM. „unoouusonunnnne enunensnunuuuunsuunnnennn «KAPITAL GESUCHT 
PRINT: INPUT" JAHRESZINSSATZ IN %";P 

PRINT: INPUT" ZEIT IN TAGEN"5T 

PRINT: INPUT" ZINSERTRAG"SZ 

K=7%36000/P/T 

PRINT" Mami KAPITAL ="FNR(K) 5; "DM" CHR$ (154) 

RETURN 

REM: Ess ....... wien .n..... . ZINSSATZ GESUCHT 
PRINT: INPUT" KAPITAL"5K 

PRINT: INPUT" ZEIT IN TAGEN"5T 

PRINT: INPUT" ZINSERTRAG"5Z 

P=7#36000/K/T 

PRINTCHR$ (12) "MM JAHRESZINSSATZ ="5FNR(P)5"%" CHR$(154) 
RETURN 


READY. 


| ZINSRECHNUNG | 


ZINSERTRAG (1), ZEIT(2), KAPITAL(3) 
ODER ZINSSATZ (4) GESUCHT 

®.1 

KAPITAL? 4000 

JAHRESZINS IN %? 4.5 


ZEIT IN TAGEN? 144 


ZINSERTRAG = 72 DM 


WEITERE BERECHNUNGEN ERWUENSCHT 
J/N? N 


READY. 
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6. ZINSESZINSRECHNUNG 


Werden die erhaltenen Zinsen wieder dem Kapital zugeschlagen und erneut 
verzinst, so spricht man von Zinseszinsrechnung. 

Ist Ko das Anfangskapital, so erhält man nach n Jahren bei p % Zins das End- 
kapital 


p 
Kn=Ko(1+ oo 


Diese Zinseszinsformel wird auch zur Berechnung von Zuwachs- und Wert- 
steigerungsraten benützt. 

Eine Einmalprämie von 50.000 DM für eine Lebensversicherung wächst in 
20 Jahren und 4% Jahreszins auf 


50.000 DM - 1,0420 = 109.556, 15 DM 
an. 


Bei unterjähriger Verzinsung, wie sie z.B. bei Festgeldkonten gegeben ist, gilt 
P ıni 
= = 
Kn-Kltaa- 


dabei ist i die Anzahl der jährlichen Verzinsungen. So liefern z.B. 10.000 DM 
in 3 Jahren bei 8% Jahreszins und vierteljährlicher Verzinsung 


8 12 _ 
10.000 DM (1 Eon) = 12.682,42 DM. 


35 


Anwachsen einer DM bei 6% Jahreszins 


2,40 


W 
= 
= 
Mi 
Mi 
m 
u 
W 
W 
= 
= 
M 
Be 


Zinseszins 
Zee einfacher Zins 


Zum folgenden Programm 


Nach Eingabe von 1 bzw. 2 wird das Endkapital bzw. das Anfangskapital be- 
rechnet. Ist der Zinssatz gesucht, so kann er mittels Programm 18 berechnet 
werden. 


Beispiel 


Was kostet ein abgezinster Sparbrief, der bei jährlich 8,5% Zins nach 5 Jahrer 
10.000 DM erbringt? 
Das Programm liefert Ko = 6650,45 DM. 
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REM» anne eennnennnnnnnnnnnnenunnnn anne nennen. ZINSESZINSRECHNUNG 
POKE 53281,11 

PRINT" 3 ZINSESZ INSRECHNUNG nu 

DEF FNR(X)=INT(100%X+.5) /100 

2 WRIREN PRESSURE LAH RER IHREICHLRE “unnnnn „EINGABE 


PRINT" END(1)- O.ANFANGS (2) -KAPITAL GESUCHT": INPUT A 
IF AXS>1 AND A<X>2 THEN PRINT" 1 ODER 2 EINGEBEN!" 
DON A GOTO 190,280 


REM...... PErEREREERTEETTEREERTERTEETETEEEREET „KAPITAL GESUCHT 
PRINT: INPUT" ANFANGSKAPITAL"; 

GOSUB 370 

KZ=FNR (K#P}) :K1=K 

Z=K2-Kl 

PRINTCHR$ (150) "HM ZINSERTRAG ="; FNR(ZI "DM" 


PRINT" "MI ENDKAPITAL ="5K25 "DM" 

GOTO 500 

REM. .uusousununosensuseuenonuunn en c un. ANFANGSKAPITAL GESUCHT 
PRINT: INPUT"mM ENDKAPITAL"SK 

GOSUB 370 

K1=FNR(K/P) =K2=K 

Z=K2-Ki1 

PRINTCHR$ (150) "mM ZINSERTRAG ="; FNR(Z) 5 "DM" 

PRINT"M ANFANGSKAPITAL=";K135 "DM 


GOTO 500 
REM „uuoneoruuonnne .nonnunnane UNTERPROGRAMM FUER AUFZINSFAKTOR 
PRINTCHR$ (154): INPUT" LAUFZEIT IN ZINSPERIODEN";SN 


PRINT: INPUT" JAHRESZINSFUSS IN %X"5P 

PRINT: INPUT" ANZAHL DER ZINSPERIODEN PRO JAHR"5I 
P=P/I 

P=(1+P/100) TN 

RETURN 
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REM KERNE RETTEREERRERRR UNTERPROGRAMM GRAFIK 
IF K2>K1 THEN I=1INT (K2/35+.5) 

IF K1>K2 THENI=INT(K1/35+.9) 

REM.=.00.+ ass ee .uunnnnnnennnnnn a ANFANGSKAPITAL 
0=1663 

FOR J=1 TO K1 STEFI:Q=0+1 

POKE 0,160: POKE 0+54272,13 

FOFE Q+40,160: POKE 0+40+54272,13 

NEXT J 


REM. oosannanonn.e ...nnune Dune erasnuenmuneunenmunnn ENDKAPITAL 


FOR J=1 TO K2 STEPI: 0=0+1 

POKE 0,160: POKE 0+54272,7 

POKE Q+40,160: POKE 0+40+54272,7 

NEXT J 

REM. 2... BRITEN BAR ROEE SEHR RARRRE UERUHESSETESSERTE CHE SUHRN „ZINSEN 
0=1903 

FOR J=1 TO Z STEPI: Q=0+1 

POKE Q,160: POKE 9+54272,10 

POKE Q+40,160: POKE 0+40+54272,10 

NEXT J 

RE es nee EHE: BEZEICHNUNG 
POKE 1702,1: POKE 1702,11: POKE 1702+54272,13 

POKE 1703+54272, 13 

POKE 1822,5: POKE 1823,11 

POKE 1822+54272,7: POKE 1823+54272,7 

POKE 1943,26: POKE 1943+54272,10 

GET X$: IF X$="" THEN GOTO 720 

PRINTCHR$ (154): PRINT"" 

FOKESZ281,6: END 


READY. 
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| ZINSESZ INSRECHNUNG | 


ZINSESZINSRECHNUNG 


END(1)- O.ANFANGS (2) -KAPITAL GESUCHT 


22 

ENDKAPITAL? 10000 

LAUFZEIT IN ZINSPERIODEN? 5 
JAHRESZINSFUSS IN %? 8.5 

ANZAHL DER ZINSPERIODEN PRO JAHR? 1 
ZINSERTRAG = 3349.55 DM 
ANFANGSKAFITAL= 6650.45 DM 


READY. 
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ZINSESZ INSRECHNUNG 


END(1)- O.ANFANGS (2) -KAPITAL GESUCHT 
?1 


ANFANGSKAPITAL? 10000 


LAUFZEIT IN ZINSPERIODEN? 5 


JAHRESZINSFUSS IN %? 8.5 


ANZAHL DER ZINSPERIODEN PRO JAHR? 1 


ZINSERTRAG = 5036.57 DM 


ENDKAPITAL 15056.57 DM 
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7. MITTLERER ZINSSATZ 


Bei vielen Wertpapieren, Renditeobjekten und Wertsteigerungen ist der Zins- 
satz bzw. die Zuwachsrate während der Laufzeit nicht konstant. Man benützt 
daher eine durchschnittliche oder mittlere Zins- bzw. Zuwachsrate. 


Sind p1, P2, : . ‚, Pn die jeweiligen Zinssätze, so wächst der Anfangswert Ko 
nach n Zinsperioden auf den Wert 


P1 P2 Pn 
Kn”= Ko (1 + —-) (1 + ——) BET 


100 100 


Der mittlere Zinssatz bzw. die mittlere Zuwachsrate ist dann 


n P1 P2 Pn 
p= (y(i+ )(1 +) ...(1 +) -1) - 100% 


100 100 100 


Herrscht 5 Jahre lang eine Inflationsrate von 
5,2%, 5,4%, 6,0%, 6,2% und 5,9% 
so ist die mittlere Inflationsrate 


(2/1,052:1,054..1,060.-1,062.1,059-1) -100% = 0,057 -100% = 5,7% 


25 Jahre Geldwert-Schwund 


Kaufkraftverlust durch Italien 


Preissteigerungen y 
1957 bis 1982 England Frankreich 
5) ” 


E% 


ey N -79% 


. S 


= 


0 = 
3 %, BR Deutschland 
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Wird eine Lohnsteigerung von 4,6% erst ab Juni ausbezahlt, so entspricht dies 
einer jährlichen Lohnsteigerung von 


ı '2/1.0467 --1) : 100% = (1,027 —1) : 100% = 2,7%. 


Werden bei einem Wertpapier mit wechselndem Zins die Erträge jährlich aus- 
gezahlt, so darf oben genannte Formel nicht angewandt werden, da sie auf der 
Zinseszinsformel beruht. In diesem Fall kann Programm 11 angewendet wer- 
den. 


Sucht man bei unterjähriger Verzinsung denjenigen Zinssatz po, der denselben 
Zinsertrag wie der Jahreszinssatz p erbringt, so erhält man den sog. konfor- 
men Zinssatz 


2 D-34400 
Po=(V1+ 55-1) 100%, 


dabei ist i die Anzahl der jährlichen Verzinsungen. Der konforme Zinssatz 
für monatliche Verzinsung (i=12) und den Jahreszinsfuß 10% ist somit 


12 
Po=( W 1,10 -1) - 100% = (1,00797414 —1) - 100% = 0,80% 


Zum folgenden Programm 

Nach Eingabe der Anzahl der Zinsperioden und des jeweiligen Zinssatzes, be- 
rechnet das Programm den mittleren Zinssatz nach der oben angegebenen 
Formel. 


Beispiel 
Ein Bundesschatzbrief vom Typ B wird bei 7 Jahren Laufzeit wie folgt ver- 
zinst (Stand Herbst 1982): 


Das Programm liefert die Rendite von 7,82 %. 
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100 
110 
120 
125 
130 
140 
150 
155 
160 
170 
180 
170 
200 
210 
220 
230 
240 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
A0O 
405 
410 
420 
430 
440 
450 
455 


460 


REM. @esausoonnonn .nunnnueeenunennnnnunnnn «MITTLERER ZINSSATZ 
DIM P(58) 

PRINT"mM 2 MITTLERER ZINSSATZ m" 

PRINT" MIT GRAFIK FUER MAX. 38 PERIODEN":PRINT:PRINT 

REM. .ooounoonn0« .onsanse een „.....EINGABE 
INPUT" WIEVIELE ZINSPERIODEN";N 

5=1 

PRINT"M ZINSSATZ IN % FUER":PRINT 

FOR I=1 TON 


PRINT” FERIODE"5I5;: INPUT P(TI) 

5=5#(1+P(I)/100) 

NEXT I 

GOSUB 300 

5=St (1/N)-1 

S=INT (1E4#5+.5)/100 

PRINT"’IS MITTLERER ZINSSATZ ="5 55"%" 

GOSUB 400: END 

REM: Han aaa na BERECHNUNG 
FOR J=1 TON 

K=J+1: IF K>N THEN GOTO 360 

IF P(J)>P(K) THEN GOTO 350 

MIN=F(J): K=K+1: IF K>N THEN GOTO 360 

GOTO 320 

NEXT J 

RETURN 

REN RRRHRRHHHHHHHHHHHHEIHEIHEE NEE GRAFIK 
REM. SS ee TEUER EINZELWERT 
FOR J=1 TON 

0=1984+J 

FOR I=0 TO INT((P(J)-MINI/.2S) 

Z2=0+54272 

IF 01024 THEN GOTO 450 

POKE Q,160: POKE Z,7 

Q=9-40 

NEXT I 

NEXT J 
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465 REM. „„-usouunnnnounnen nun nun ne susaensununnunnuuun «MITTELWERT 
470 Q=1984-40#INT ( (S-MIN)/.25) 

480 FOR X=0 TOD N+1 

490 POKE @+X,160: POKE 0+X+54272,13 

300 NEXT X 

320 RETURN 


READY. 


| MITTLERER ZINSSATZ | 


MITTLERER ZINSSATZ 


MIT GRAFIK FUER MAX. 38 PERIODEN 


WIEVIELE ZINSPERIODEN? 7 
ZINSSATZ IN % FUER 


PERIODE 1 ? 5.75 


PERIODE 2 ? 7.25 
PERIODE 3 ? 7.5 
PERIODE 4 ? 8 
PERIODE 5 ? 8.25 
PERIODE 6 ? 9 
FPERIODE 7 ? 9 


MITTLERER ZINSSATZ = 7.82 % 


READY. 
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8. EFFEKTIVZINS VON KLEINKREDITEN UND 
RATENZAHLUNGEN 


Eigentlich sollte der Begriff "'Effektivzins’’ Kreditkonditionen von Banken 
und Warenhäusern vergleichbar machen. Da nun aber Banken wieder spezielle 
Kreditarten anbieten, sind die Angaben jedoch nicht immer vergleichbar. 


Der Effektivzins ist nach Definition der Zinsfuß, zu dem der ausbezahlte An- 
teil des Kredits verzinst werden müßte, damit sein Endwert gleich dem End- 
wert der geleisteten Zins- und Tilgungszahlungen ist (vgl. Programm 12). 


Seit Beginn des Jahres 1981 wird der Effektivzins über die Gleichung 


B 

+ —— 

100, p__ 

N 100 1200, , , MA e, __M 
(5,5 + ——) la -1 +14 ‘ 700! * T+Me/1200 


1 
aJ 


ermittelt, dabei ist 


= gesuchter Effektivzins in % 

= 1+e/100 

= Laufzeit in Monaten 

= nominaler Monatszinssatz in % 
Laufzeit in ganzen Jahren 

= Anzahl der Restmonate 

= Bearbeitungsgebühr in %. 


2-0 722020 
| 


Da diese Gleichung nicht nach e aufgelöst werden kann, muß die Berech- 
nung indirekt erfolgen. Mit Hilfe einer Intervallschachtelung wird e solange 
systematisch variiert, bis beide Seiten der Gleichung übereinstimmen. 


Bis zum Jahr 1980 wurde eine sehr viel einfachere Formel zur Ermittlung des 
Effektivzins benützt, die finanzmathematisch nicht sinnvoll war, da sie nicht 
auf Zinseszinsrechnung beruht: 
_ 24 (pN + B) 
N+1 


Für das im Programm berechnete Beispiel ergibt sich nach der alten Formel 
17,48 %, gemäß der neueren jedoch 16,44 %. 
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Zum folgenden Programm 


Nach Eingabe von Kredithöhe, Laufzeit, Monatszinssatz und Bearbeitungs- 
gebühr berechnet das Programm mittels einer Intervallschachtelung den Effek- 
tivzins nach der neuen Formel. Die Intervallschachtelung selbst wird in einem 
Unterprogramm ausgeführt. Die im Nenner der neuen Formel auftretenden 
Funktionen werden mittels DEF FN berechnet. 


Beispiel 


Bei einem Großversandhaus wurden Möbel im Wert von 5000 DM auf Raten- 
zahlung gekauft. Die Laufzeit der Zahlungen beträgt 72 Monate, der monat- 
liche Zins 0,69 % und die Bearbeitungsgebühr 3,5 %. 

Das Programm liefert dafür eine Monatsrate von 106,37 DM. 

Der Effektivzins beläuft sich auf 16,44 %. 


hy, 


‚Nj: “ 


IS 

N 
S 
NS 

N 


“Bittsteller bei einem jüdischen Geldverleiher: 

Ich bitt eüch jud leicht (leiht) mir zu hand / was eüch 
gebürt (an Zinsen), gebt mir verstand (kund) / Bargelt 
auff bürgen oder pfand’ 

Holzschnitt von Jörg Breu, Augsburg 1531 
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100 REM. „uses nunenunnnennenennne.n„EFFEKTIVZINS BEI KLEINKREDITEN 
LIO-REMsssss sa are „=0.....FUNKTIONSGLEICHUNGEN 
120 DEF FNR{X)I=INT ((X+.005)*100)/100 

130 DEF FNA(X)=(5.5+12/0 # Ct (1+X) TJ-1I #(1+M/12/128=X) +M# (1+ 011-1) /248*X) 
140 DEF FNB(X)=(X+1) tJ#(1+M/12#X) - ( (100+N#P+B) / (1OO&N) )#FNA(X) 
150 PRINT"M 3 EFFEKTIV?7INS BEI KLEINKREDITEN a" 

160 REM... eu. u... RER ERTL ERS NN .. „EINGABE 
170 INPUT" KREDITHÜFHE"SK 

180 PRINT: INPLT" LAUFZEIT IN MONATEN": N 

190 PRINT: INPUT" MONATL. ZINSSATZ IN %"5P 

200 PRINT: INPUT" BEARBEITUNGSGEBUEHR IN %"56 

10 REN.s ses erinnere «nu... BERECHNUNGEN 
220 B= 

230 Z=P&N&*K/100 

240 Z=FNR(Z) 

250 G=G6#K/100 

260 R=(K+Z+G)/N 

270 R=FNR(R) 

280 FRINT:PRINT" EINEN AUGENBLICK BITTE..." 

290 GOSUB 340 

299: BEM a2 eknrneisielaieer AUSGABE 
300 PRINTCHR$ (150) "MM MONATSRATE = "5R5; "DM" 

310 PRINT"N EFFEKT. JAHRESZINS ="5E5 "ZAM"CHR$ (154) 

320 PRINT: INFPUT"WEITER J/N"5A$ 

325 IF A$="J" THEN GOTD 150 

330 END 

SAD REN ERER UNTERPROGRAMM EFFEKTIVZINS 
3550 J=INT(N/12) :M=N-12%*J:5=.04 

360 E=.12%#P 

370 C=FNB(E) 

380 IF S<.1E-5 THEN E=INT (E#10000+.5)/100: RETURN 

390 IF C<O THEN E=E+S: G0T0O 370 

400 E=E-S5: 5=5/2: GOTO 370 


READY. 
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EFFEKTIVZINS BEI KLEINKREDITEN 


EFFEKTIVZINS BEI KLEINKREDITEN 
KREDITHOEHE? 5000 
LAUFZEIT IN MONATEN? 72 
MONATL. ZINSSATZ IN %? „69 
BEARBEITUNGSGEBUEHR IN %? 3.5 


EINEN AUGENBLICK BITTE... 


MONATSRATE = 106.37 DM 


EFFEKT. JAHRESZINS = 16.44 % 


WEITER J/N? N 


READY. 
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9. EFFEKTIVZINS BEI ANNUITATENDARLEHEN 


Ebenso wie bei Ratenzahlung und Kleinkrediten werden Bankdarlehen und 
Hypotheken durch den Effektivzins beschrieben. Seine Berechnung erfolgt 
prinzipiell wie bei Kleinkrediten, nur werden die Zahlungen meist jährlich 
verzinst und die Bearbeitungsgebühr durch einen Auszahlungsverlust 
(= Disagio) ersetzt. 


Zum folgenden Programm 


Nach Eingabe des nominellen Zinssatzes, des Tilgungssatzes, der prozentualen 
Auszahlung berechnet das Programm die Laufzeit und den Effektivzins. Die 
Zinsermittlung erfolgt analog zum vorhergehenden Programm über eine Inter- 
vallschachtelung. 


Beispiel 


Ein Käufer einer Eigentumswohnung benötigt zur Finanzierung noch 
96.000 DM. Er nimmt dazu bei einer Bank ein Hypothekendarlehen über 
100.000 DM bei 96% Auszahlung, 9% Zins und 1% Tilgung auf. Das Pro- 
gramm berechnet die Laufzeit zu 26,7 Jahre. Der Effektivzins ist 9,49 %. 


Die Tilgungsrate eines Annuitätendarlehens kann mit Hilfe von Programm 17 
berechnet werden. 


Literaturhinweis: [13] 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
300 
s10 
320 
Z20 


340 


REM: a Susan See ee „EFFKTIVZINS BEI ANNUITAETENDARLEHEN 
PRINT" 3 EFFEKTIVZINS EINES DARLEHENS m" 
REM SSR Seren EINGABE 


INPUT" ZINSSATZ IN %"5P 

FRINT: INPUT " TILGUNGSSATZ IN %"51 

FRINT: INPUT" AUSZAHLUNG IN %"5A 

PRINT"RM BITTE WARTEN!" 

REM Sa ren enneunnennnnn a. BERECHNUNGEN 


REM San LAUFZEIT IN JAHREN 
N=L06 (1+P/T) /LOG (1+P/100) 


J=N 
M=EN=INFINIEREM aan RESTZEIT 


N=INTAN) REM. uud .....GAÄANZE JAHRE 
T=(P+T I. A100: REN. aan aan Bnausennennnnnn. . . TILGUNG 


REM. ae nein -... INTERVALLSCHACHTELUNG 
X0=0: X1=1 

X=(X0+X1)/2 

IF ABS(X-XZ)I<1E-5 THEN 460 


REM.oosnnasaonunenn une nn nm ann ...„ENDWERT DER TILGUNGSGRENZE 
FOR I=1 TO N-1 


S=5#t1+X)+T 
NEXT I 
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350 
360 
370 
380 
390 
400 
410 
420 
450 
440 
450 
460 
470 
490 
00 
310 
320 
3350 
340 
390 


REM. „oo... Kununeusnannnnnune nun.“ KONFORMER ZINS FUER RESTZEIT 


5=-5%7 

REM. ononann» Luunenuuen nennen ea n nen nn RESTTILGUNG 
Y=T#(t1+X) TM-1)/X 

5=-5+Y 

GOSUB 490 

IF ABS(K-S)X1E-5 THEN 450 

IF S>K THEN X0=X:60T0 270 

X1=X:G0T0 270 

PRINT"TI mLAUFZEIT="5 INT (J*100+. 5) 7/1005 "JAHRE" 

PRINT"®) EFFEKTIVZINS="5 INT(1E4#X+.5) 7/1005 "2" 5 CHR$ (154) 

END 

REM. .usoononunnonuunonnun0nn ENDWERT DES AUSGEZAHLTEN KAPITALS 


E=K#(1+X) TN 
REM.„.„susounemunonunsaunuusunnennnen nenn n nn nn KÜNFORMER ZINS 
z=(1+X) 1M-1 

K=K#(1+Z) 

RETURN 


READY. 
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er Teer Tr re 


EFFEKTIVZINS EINES DARLEHENS 
ZINSSATZ IN %? 9 
TILGUNGSSATZ IN %? 1 


AUSZAHLUNG IN %? 96 


LAUFZEIT= 26.72 JAHRE 
EFFEKTIVZINS= 9.49 % 


READY. 
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10. RENDITE VON FESTVERZINSLICHEN WERTPAPIEREN 


Festverzinsliche Wertpapiere wie Pfandbriefe, Kommunalobligationen, Anlei- 
hen usw. werden auch Rentenpapiere genannt. 


Ist N der Nominalzins, R der Rückzahlungskurs, A der Ausgabe- bzw. der 
Anschaffungskurs und L die Laufzeit in Jahren, so berechnet sich die Ren- 
dite p aus der Formel 


R-A 


(N + )- 100% 


mn A 


Da sich diese Rendite noch um die jeweiligen Bank- und Maklergebühren ver- 
ringert, werden von Banken und Tageszeitungen manchmal etwas differieren- 
de Beträge genannt. 


Zum folgenden Programm 


Nach Eingabe von Nominalzins, Rückzahlungs- und Anschaffungskurs und 
Laufzeit berechnet das Programm die Rendite nach obengenannter Formel. 


Beispiel 
Ein Pfandbrief vom Nominalzins 7% und der Restlaufzeit von 6 Jahren wird 
bei Kurswert 96% gekauft. Die Rendite ist 
100 — 96 e 
PTR 1740,67): 100% 
96 96 


(7 
= 7,99% 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
170 
200 
210 
220 
230 
240 
250 


REM. 2. oucusunnun “ann... .RENDITE VON FESTVERZINS. WERTPAPIEREN 
PRINT" 3 RENDITE VON FESTVERZ. WERTPAPIEREN 1" 


PRINT: INPUT" NOMINALZINS IN %”5N 
PRINT: INPUT" RUECKZAHLUNGSKURS";R 
PRINT: INPUT" AUSGABEKURS"5 A 

PRINT: INPUT" LAUFZEIT IN JAHREN"SL 


P=(N+{R-A)/L) 
P=P#100/A 
F=INT (100*P+.5)7/100 


PRINT" Meirfl RENDITE="3P5 "%X"CHR$ (154) 
PRINT: INPUT"WEITER J/N"5A$ 

IF A$="J" THEN GOTO 110 

END 


READY. 


unoncna . „EINGABE 


“nuunnn. . BERECHNUNG 


Donenuunnnnunnnn „nun... AUSGABE 


nn nn a ee ne rn nn rn en 1 GE ee bi ten nt en 


| rewrre VON FESTVERZ. WERTPAPIEREN | 


| men un ein oma nt mn Samt ne anni ame 


NOMINALZINS IN %? 7 


— 


RUECKZAHLUNGSKURS? 100 


AUSGABEKURS? 96 


LAUFZEIT IN JAHREN? & 


RENDITE= 7.97 % 


WEITER J/N? N 


READY. 


54 


11. RENDITE EINES WERTPAPIERS MIT WECHSELNDEM 
ZINS ’ 


Bei einigen Wertpapieren, wie z.B. Bundesschatzbriefen vom Typ A, werden 
die Zinserträge jährlich ausgezahlt. Für solche Wertpapiere berechnet das fol- 
gende Programm die Rendite; werden die Zinsen nicht ausbezahlt, so muß das 
Programm 7 zur Renditebestimmung gewählt werden. 


Die Rendite r eines solchen Wertpapiers ist dadurch definiert, daß der End- 
wert des mit r verzinsten Kapitals gleich dem Endwert der nachschüssig ver- 
zinsten Zinserträge und dem Wert des Papiers selbst ist (vgl. Programm 12). 


Zum folgenden Programm 


Ähnlich wie bei den Programmen 8 und 9 wird die gesuchte Rendite über eine 
Intervallschachtelung bestimmt. Die Verzinsung der ausgeschütteten Zinser- 
träge wird bei jedem Schritt in einem Unterprogramm ermittelt. 


Beispiel 
Ein Bundesschatzbrief vom Typ A hat bei 6 Jahren Laufzeit folgende Verzin- 
sung (Stand Herbst 1982): 


3. Jahr 750% 
8.00% 
8,25 % 
9,00% 


Die Zinsen werden jährlich ausgeschüttet. 
Das Programm liefert die Rendite 7,51 %. 


Literaturhinweis: [13] 
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100 
110 
120 
130 
140 
145 
150 
160 
170 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
320 
330 
540 
330 
360 
70 
380 
390 
400 


REM „.eneseeeennnn..RENDITE EINES WERTPAPIERS BEI WECHS. ZINS 
PRINT"/M 3 RENDITE EINES WERTPAPIERES m" 

.nanan EINGABE 
INPUT" LAUFZEIT IN JAHREN"53N: PRINT 

DIM PiN 

PRINT" ZINS IN AM" 

FOR I=1T0 N 

PRINT" IM JAHR"5I5": "32INPUTP(T) 

NEXT I 

REM SEE ae ... INTERVALLSCHACHTELUNG FUER EFFEKTIVZINS 
X0=0: X1=100 

X=(X0+X1)/2 

GOSUB 320 

R=(1+X/100) TN-1 

IF ABS(O-R)<1E-5 THEN 280 

IF @Q>R THEN X0=X :60T0 210 

X1=X:G0T0 210 

REM. non ousuoonuoueuu nano nun ue neun nennen nun un nn nn AUSGABE 
X=INT (100*X+.5) 7/7100 

PRINT" Mat RENDITE="3X5 "A"CHR$ (154) 

END 

REM. oounsosonnononnnee nun nncn UNTERPROGRAMM FUER EFFEKTIVZINS 
0=0 

FOR I=1 TON 

B=8+P (1) /100 

Z=0*X/100 

IF I=N THEN 390 

0=0+Z 

NEXT I 

RETURN 


READY. 
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Tr re 


RENDITE EINES WERTPAPIERES 


LAUFZEIT IN JAHREN? & 


ZINS IN % 


IM JAHR 
IM JAHR 
IM JAHR 
IM JAHR 
IM JAHR 
IM JAHR 


“u us un .a un LI} 
I 


rU PWN 
I 


RENDITE= 7.51 % 


READY. 


97 
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12. ENDWERT REGELMASSIGER ZAHLUNGEN 


Viele Zahlungen für Sparverträge, Versicherungen, Unterhaltszahlungen usw. 
werden in Form von regelmäßigen Raten geleistet. 


Werden jeweils am Anfang von n Jahren jährlich R DM auf ein Konto einge- 
zahlt und jährlich mit p % verzinst, so ist am Ende des letzten Jahres der End- 
wert der Zahlungen 


ar1 
q—1 
(Endwert einer vorschüssigen Rente). Dabei gilt 


En=Raq 


q=1+ os (Aufzinsfaktor). 


Erfolgen die Zahlungen nachschüssig, d.h. am Ende des Jahres, so gilt 
qn — 1 
q—1 


En=R 


(Endwert einer nachschüssigen Rente). 


Werden die Zahlungen unterjährig verzinst, so ist theoretisch der Zinssatz p 


durch — und die Anzahl n der Zinsperioden durch ni zu ersetzen. 


Jedoch berechnen Banken Rentenendwerte nach folgender Formel 
i—1 
= DREH Een + Pe ar n BER .. . 
En=R er > ) (qN —1) nachschüssig 
bzw. 


| it1 
=RI——_- + lan — üssi 
En=R( ; > ) (9X —1) vorschüssig. 


Diese Bankformeln gelten bei unterjähriger Verzinsung; für i=1 gehen sie nä- 
herungsweise in die vorher angegebenen Formeln über. 


Für einen Sparvertrag werden beispielsweise 20 Jahre lang am Monatsersten 
200 DM eingezahlt. Welchen Endwert haben die Zahlungen bei 4,5% Jahres- 
zins? 
Die Bankenformel liefert 

12 
0,045 


= 77.126,64 DM 


E20 = 200 DM ( + 6,5) (1,04520 1) 
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Zum folgenden Programm 


Nach Eingabe der Anzahl der jährlichen Zahlungen, des Zinssatzes, der Lauf- 


zeit und der Zahlungshöhe, berechnet das Programm den Endwert der Rente 
nach der Bankenformel. 


Beispiel 


Für einen 10.000 DM-Kredit müssen 6 Jahre lang am Monatsende 213,— DM 
bezahlt werden. Welchen Endwert haben die Zahlungen, wenn sie mit 8% ver- 
zinst werden? 


Das Programm liefert den Endwert 19.438,16 DM. 
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“Geldwechsler hinter seiner Wechselbank’’ 
Holzschnitt von Hans Weiditz, Augsburg 16. Jahrhundert 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
170 
200 
210 
220 
230 
240 
260 
270 
280 
290 
296 
300 
310 
320 
325 
330 
340 
345 
547 
350 
3395 
360 
365 
370 


REM. „ooseeuoonununs „nu.nun...ENDWERT REGELMAESSIGER ZAHLUNGEN 
PRINT" 3  ENDWERT REGELMAESSIGER ZAHLUNGEN m" 
REM. osannun. .nununonun.. Konuununeeneunnnsnnnenn .u.u0...EINGABE 


INPUT" WIEVIELE ZAHLUNGEN PRO JAHR"5SI 
PRINT: INPUT" ZINSSATZ IN %";P 


PRINT: INPUT" LAUFZEIT IN JAHREN”"SN 

PRINT: INPUT" HOEHE DER ZAHLUNGEN";R 

PRINT: INPUT" VORSCHUESSIG (J/N) "5 A$ 

REM. ss ee Dununnnnennsnnenunnn BERECHNUNGEN 
P=P/100 

Q=(1+P)TtN 

E=R* (0-1) 


IF LEFT$(A$,1)="J" THEN E=E*(1/P+(1+1)/2):G0TO 240 
E=E#(1/P+ (1-1) /2) 

E=INT (100x*E+.5) /100 

REM PRINT" ENDWERT ="3E3 "DM" 

GOSUB300 

GETA$: IFA$=""THENGOTO2BO 

PRINT"":POKE V+21,0:END 

REM ZRHNKERRERERREREEEKKENN KHK NN IT NN NT TFT NN HEHE SPRITE 
V=53248 

POKE V+21,3:POKE V+39,7:POKE V+40,7 

FOR 2=832 TO 894:READ Q:POKE Z,Q@:NEXT Z:RESTORE 

FOR Z=896 TO 958:READ Q:POKE Z,Q:NEXT Z 

POKE 2040, 13:POKE 2041,14:POKE V,30:POKE V+1,201 

POKE V+23,2:POKE V+29,2:POKE V+2,170:POKE V+3,180 
BZ=1024+40%*19: POKE 209, BZAND255:POKE 210,BZ/256:POKE 211,5 
515 1 PERS ERIEN EIER IREEESSRHELER> PER REKEN GEHE EERNE NS nennen ern AUSGABE 
PRINT"MONATL.BEL. "5 TAB (26) 5 "ENDWERT" 

BZ=1024+40%21:POKE 209, BZAND255:POKE 210,BZ/256:POKE 211,5 
PRINT"="5 INT (R#1/12*100+.5) /1005 "DM"3 TAB(26) 3 "="; 

PRINTINT (E#100+. 5) /1005 "DM" 

RETURN 
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399 REM. ounsusununnunununnune Suennuannnenensenunncan.. OPRITE-DATEN 


400 DATA 
405 DATA 
410 DATA 
415 DATA 
420 DATA 
425 DATA 
430 DATA 


252,0,63, 126,28, 126, 63,62, 124,31 
254,248, 15, 255, 240, 7, 255, 224, 3,255 
192,1, 255, 128,7,239, 192,31, 131,240 
63,109, 248, 127,111, 252, 255, 111,254 
255,131, 254, 255, 237, 254, 255,237 
254,255, 109, 254, 255, 131,254, 127,239 
252,63, 255,248, 31,255, 240 


ENDWERT REGELMAESSIGER ZAHLUNGEN 


ENDWERT REGELMAESSIGER ZAHLUNGEN 
WIEVIELE ZAHLUNGEN PRO JAHR? 12 
ZINSSATZ IN %? 8 
LAUFZEIT IN JAHREN? 6 
HOEHE DER ZAHLUNGEN? 213 


VORSCHUESSIG(J/NI? N 


MONATL.BEL. ENDWERT 
= 2153 DM = 19458.16 DM 


READY. 
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13. BARWERT REGELMASSIGER ZAHLUNGEN 


Bei Versicherungs- und Unterhaltszahlungen werden regelmäßige Zahlungen 
oft durch eine einmalige Zahlung oder Prämie abgelöst. 


Der Barwert solcher Zahlungen ist somit der Anfangswert eines Kapitals, des- 
sen Umwandlung in Rente die entsprechenden Zahlungen liefert. Die Formel 
für den Barwert von Zahlungen erhält man, indem man die Rentenendformel 
abzinst; d.h. durch qN dividiert: 


qn — 1 Re 
B= Rq ——— vorschüssig 
qNlq-1) 
bzw. 
n_ 
B=-R Bi nachschüssig 
qNlq-1) 
Die entsprechenden Bankformeln für unterjährige Verzinsung lauten 
( n & ' 
Beate ze (qN —1) vorschüssig 
qNn 
+ 
B=R = (qN —1) nachschüssig 
q 


Durch welche Einmalprämie kann eine Versicherungsprämie über 200,— DM, 
die 20 Jahre lang am Monatsersten bezahlt und mit 4% verzinst wurde, abge- 
golten werden? 

Der Barwert der Zahlungen ist 33.323,48 DM. 


Zum folgenden Programm 


Nach Eingabe der Anzahl der Zahlungen, des Zinssatzes, der Laufzeit, der 
Zahlungshöhe wird der Barwert der Zahlungen nach der Bankformel berech- 
net. 
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Beispiel 


Durch ein Testament wird ein Mann verpflichtet, seiner 5Ojährigen Schwester 
lebenslänglich eine Wohnung in dem testamentarisch vermachten Haus zu 
überlassen. Durch welche einmalige Zahlung kann das Wohnrecht abgelöst 
werden, wenn die Monatsmiete der Wohnung 400 DM beträgt? 


Da die Schwester eine mittlere Lebenserwartung von 78 Jahren hat, entspricht 
dem Wohnrecht eine monatliche Rente von 400 DM mit einer Laufzeit von 
28 Jahren. Der Barwert der Rente beträgt bei 4% Zins vorschüssig 81.715,66 
DM. 


Siehe Anhang B: Statistische Lebenserwartung. 
Literaturhinweis: [1], [9] 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
260 
270 
280 
290 
295 
300 
310 
320 
330 
340 
350 
360 
364 
363 
370 
380 
385 
370 


REM. „.oo202sunonsennnnnnnnnn cn. BARWERT REGELMAESSIGER ZAHLUNGEN 
PRINT"I 3  BARWERT REGELMAESS.ZAHLUNGEN m" 

ee einen as EINGABE 
INPUT" WIEVIELE ZAHLUNGEN PRO JAHR"5I 

PRINT: INPUT" ZINSSATZ IN %";P 

PRINT: INPUT" LAUFZEIT IN JAHREN"5N 

PRINT: INPUT" HOEHE DER ZAHLUNG" SR 

PRINT: INPUT" VORSCHUESSIG (J/N) "5A$ 

REM Hvar U RENT IIERE .uuennennennnnc ce BERECHNUNG 
P=P/100 

Q=(1+P) N 

B=R&# (Q-1)/0 

IF LEFT$(A$,1)="J" THEN B=B#(1/P+(1I+1)/2): GOTOD 240 

B=B#*# (I/P+(I-1)/2) 

B=INT (100*B+.5) /100 

REM PRINT" EBARWERT="5B; "DM" 

GOSUB 300 

GET A$: IF A$="" THEN GOTO 280 

POKE V+21,0: PRINT"’T': END 

REM HEHEHRHHHHHHHHHHHHHHHHHHHHHIHHHEEEEN RER GRAFIK 
v=53248 

POKE V+21,3:POKE V+39,3:POKE V+40,3 

FOR Z=832 TO 894:READ Q:POKE Z,Q:NEXT Z:RESTORE 

FOR Z=896 TD 958:READ Q:POKEZ,Q:NEXT Z 

POKE 2040,13:POKE 2041,14:POKE V,30:POKE V+1,201 

POKE V+23,2:POKE V+29,2:POKE V+2,170:POKE V+3,180 
BZ=1024+40*#19:POKE 209, BZAND2SS:POKE 210,BZ/256:POKE 211,5 
REMsa Seas EHE PERTERE AUSGABE 
PRINT"AMONATL. ZAHL. "5 TAB (26) 5 "BARWERT" 

BZ=1024+40*21:POKE 209, BZAND255:POKE 210,BZ/256:POKE 211,5 
PRINT"="5 INT(R#1/12#100+. 5) /1003 "DM"; TAB(26)3 "="; 

PRINTINT (B#100+. 5) /1005 "DM"CHR$ (154) 

RETURN 
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399 
A400 
405 
410 
415 
420 
425 
4.30 


REM. ES ae ns aa ss a u 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


READY. 


252,0,63,126,28, 126, 63,62, 124,31 
254,248, 15,255, 240,7, 255,224, 3,255 
192,1,255,128,7,239,192,31,131,240 
63,109, 248, 127,111, 252,255, 111,254 
255, 131,254, 255,237, 254, 255,237 
254,255, 109, 254,255, 131,254, 127,239 
252,63, 255,248, 31,255, 240 


en nn mn nn 


= 
| BARWERT REGELM. ZAHLUNGEN 


BARWERT REGELMAESS. ZAHLUNGEN 


WIEVIELE ZAHLUNGEN PRO JAHR? 12 


ZINSSATZ IN 4%? 4 


LAUFZEIT IN JAHREN? 28 


HOEHE DER ZAHLUNG? 400 


VORSCHUESSIG (J/N? J 


MONATL. ZAHL. BARWERT 
= 400 DM = 81715.66 DM 


READY. 
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SPRITE-DATEN 


14. UMWANDLUNG EINES KAPITALS IN RENTE 


Sollen aus einem Kapital K regelmäßige Zahlungen R geleistet werden, so 
wird das Kapital aufgezehrt, wenn die entnommenen Zahlungen die Zins- 
erträge übersteigen. 

Die Höhe der Rente kann der Rentenbarwertformel entnommen werden (vgl. 
Programm 13): 


N (a— 
R=K aaa) nachschüssig 
qNn —1 
bzw. 
n—1 (a— 
R=K Clarke: eil} vorschüssig. 


qn —1 


Für unterjährige Verzinsung wird die Bankenformel angewandt: 


3 qN En 
R=K 4 nachschüssig 
to anni) 
se qN ne 
R=K — 1 vorschüssig 
| i+1 
ee 


Eine Abiturientin möchte ihre Aussteuerversicherung in Höhe von 25.000 DM 
zur Finanzierung ihres Studiums verwenden. Bei 4% Verzinsung und fünfjähri- 
gem Studium erhält sie monatlich vorschüssig 


5 
102 = 458,05 DM 
+ 6,5) (1,045 -1) 


R = 25.000 DM - 


2 


0,04 
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Zum folgenden Programm 


Nach Eingabe des Kapitals, der Anzahl der jährlichen Auszahlungen, der Lauf- 
zeit und des Zinssatzes berechnet das Programm die sich ergebende Rente 
nach der Bankenformel. 


Beispiel 

Eine 5Ojährige Witwe soll für den Verkauf eines Grundstücks im Wert von 
240.000 DM eine Leibrente erhalten. Da sie eine Lebenserwartung von 78 Jah- 
ren hat, kann sie bei 4% eine monatliche Rente von 1174,81 DM erwarten. 


Die hier angewandte Methode zur Berechnung von Leibrenten gilt nur nähe- 
rungsweise. Die genaue Berechnung von Leibrenten stützt sich auf Sterbe- 
tafeln (siehe dazu z.B. [1]). 
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“Kaufmann inmitten seiner Familie’’ 
Holzschnitt von H. Schauer, Augsburg 1477 
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REM. osasannonunn non... .“UMWANDLUNG EINES KAPITALS IN RENTE 
PRINT" 3 UMWANDLUNG EINES KAPITALS IN RENTE m" 

REM. „uuu-0un ee ...... era u... „EINGABE 
INPUT" WIEVIELE ZAHLUNGEN PRO JAHR"5TI 

PRINT: INPUT" ZINSSATZ IN %"5P 


PRINT: INPUT" LAUFZEIT IN JAHREN"SN 

PRINT: INPUT" HOEHE DES KAPITALS"5K 

PRINT: INPUT" VORSCHUESSIG (J/N) "5 A$ 

REM EEE are Eredar eeeeen BERECHNUNG 
P=P/100 

Q=(1+P) TN 

R=K*Q/ (0-1) 

IF LEFT$(A$,1)="J" THEN R=R/(T/P+tI+1)/2): GOTD 240 

R=R/ (1/P+t(1-1)/2) 


R=INT (100*R+.5)/100 

REM PRINT" KRENTE="3R3 "DM" 

GOSUB 300 

GET A$: IF A$="" THEN 60TO 270 

POKE V+21,0: PRINT"!": END 

REM FRE RERRHERRREKHERKKRHKNRKKHN TH HHNNKNHHRKENIERRERRR GRAFIK 
V=53248 

POKE V+21,3: POKE V+39,13: POKE V+40,13 

FOR Z=832 TO 894: READ Q: POKE Z,@: NEXT Z: RESTORE 

FOR Z=89& TO 958: READ Q: POKE Z,D: NEXT Z 

POKE 2040,13: POKE 2041,14: POKE V+23,2: POKE V+29,2 

FOKE V+2,30: POKE V+23,180: POKE V,190: POKE V+1,201 
BZ=1024+40%19: FOKE 209, BZAND255: POKE 210,BZ/256: POKE 211,8 
REN ae AUSGABE 
PRINT"EKAPITAL" 5 TAB (26) 5 "RENTE" 

BZ=1024+40*21: POKE 209, BZAND255: POKE 210,BZ/256: POKE 211,8 
PRINT"="3 INT (K#100+.5) /1005 "DM"; TAB(26) 5 

PRINTINT (R*100+. 5) /1003 "DM"3CHR$ (154) 

RETURN 
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397 EM a a aa nee SPRLIE- DATEN 


400 DATA 
405 DATA 
410 DATA 
415 DATA 
420 DATA 
425 DATA 
450 DATA 


READY. 


252,0,63,126, 28,126, 63,62, 124,31 
254,248, 15, 255, 240, 7,255, 224, 3, 255 
192,1,255,128,7,239,192,31,131,240 
63,109, 248, 127,111, 252, 255, 111,254 
255, 131,254, 255, 238, 254,255, 238 
254,255, 109, 254, 255, 131,254, 127,239 
252,63, 255,248, 31, 255, 240 


| UMWANDLUNG EINES KAPITALS IN RENTE | 


UMWANDLUNG EINES KAPITALS IN RENTE 
WIEVIELE ZAHLUNGEN PRO JAHR? 12 
ZINSSATZ IN 4X? 4 
LAUFZEIT IN JAHREN? 28 
HDEHE DES KAPITALS? 240000 


VORSCHUESSIG (J/ND? J 


KAPITAL RENTE 


= 240000 DM 1174.81 DM 


READY. 
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15. EWIGE RENTE 


Ist die Laufzeit einer Rente nicht beschränkt, so spricht man von einer ewigen 
Rente. 


Bringt das Kapital B, jahrlich zu p % verzinst, RDM Zins, so kann dieser Zins- 
ertrag als ewige Rente ausgezahlt werden, ohne das Kapital zu mindern. 
Der Barwert einer ewigen Rente ist somit 


B = —Fi60 nachschüssig 


bzw. 


_  Rq nz 
B = 5/100 vorschüssig. 
Eine Stadt möchte jährlich einen Kulturpreis in Höhe von 10.000 DM aus- 
setzen. Bei 5% Zins muß bei nachschüssiger Zahlung ein Stiftungsfond über 
10000 DM _ 
008 200.000 DM 
eingerichtet werden. 


Zum folgenden Programm 


Je nachdem, ob der Barwert oder die ewige Rente berechnet werden soll, ist 
1 bzw. 2 einzugeben. Das Programm berechnet die gesuchte Größe nach den 
oben angegebenen Formeln. 


Beispiel 


Eine Gemeinde möchte die Wasserrechte eines Landwirts, die einen jährlichen 
Wert von 500 DM entsprechen, durch eine einmalige Zahlung ablösen. Bei 
4% Zins und vorschüssiger Zahlung haben die Wasserrechte den Barwert 
13.000 DM. 


Literaturhinweis: [1], [9] 
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100 REM... „osuosusonunonnnenenunnn nennen eennenennnn «EWIGE RENTE 
120 PRINT"M 3 EWIGE RENTE a" 

150 INPUT" BARWERT(1) 0. RENTE (2) GESUCHT"5A 

140 IF A<>1 AND A<> 2 THEN PRINT"1 0. 2 EINGEBEN" 

150 IF A=2 THEN 310 

170 REM....... Kennen uusununenume .oneeunenununnunne. BARWERT GESUCHT 
180 PRINT: INPUT" JAHRESRENTE ";R 

170 PRINT: INPUT" ZINSFUSS IN PROZENT";P 

200 PRINT: INPUT" VORSCHUESSIG (J/N) "5A$ 

210 REM... uusousonuunseo nenn ons nn nenn nn. u... nuus0u BERECHNUNG 
220 P=P/100 

230 Q=1+P 

240 B=R/P 

250 IF LEFT$(A$,1)="J" THEN B=B#Q 

260 B=INT (100%*B+.5)/100 

270 REM .asonnussennsonunans IR ERTTEUIEREUTEREREETRERETT AUSGABE 
280 PRINTCHR$(150)" MM DER BARWERT DER EWIGEN RENTE BETRAEGTM" 
285 PRINTTAB(13)5"3"5B5; "N DM "CHR$(154) 

290 END 

310 REM. „.ousonunsononnunsuunnnennunnsuennenn una nn nn. MENTE GESUCHT 
320 PRINT: INPUT" KAPITAL"5B 

330 PRINT: INPUT" ZINSFUSS IN PROZENT";P 

340 PRINT: INPUT" VORSCHUESSIG (J/N) "5A$ 

SS0 REM. „osnnaounnuunensnnaennnsen nun ansannonununne „ „ BERECHNUNG 
360 P=P/100 

370 Q=1+P 

380 R=B#F 

390 IF LEFT$(A$,1)="J" THEN R=R#Q 

400 R=INT(100*R+.5)/100 

410 REN. sans en nonausasansnnaunmnenn cn u... AUSGABE 
420 PRINTCHR$(150)"M DIE EWIGE RENTE BETRAEGT" 

425 PRINTTAB(T) 5 "Ea"sRS "N DM "CHR$ (154) 

430 END 


READY. 
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| EWIGE RENTE | 


EWIGE RENTE 
BARWERT (1) 0. RENTE (2) GESUCHT? 1 
JAHRESRENTE ? 500 
ZINSFUSS IN PROZENT? 4 


VORSCHUESSIG (J/N)? J 


DER BARWERT DER EWIGEN RENTE BETRAEGT 
13000 DM 


READY. 
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EWIGE RENTE 


BARWERT (1) D. RENTE(2) GESUCHT? 2 


KAPITAL? 10000 


ZINSFUSS IN PROZENT? 4 


VORSCHUESSIG (J/ND? J 


DIE EWIGE RENTE BETRAEGT 


416 DM 


READY. 
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16. RATENTILGUNG 


Bei der Ratentilgung wird — im Gegensatz zur Annuitätentilgung — der Kredit- 
betrag in gleichbleibenden Raten getilgt. 
Wird der Kreditbetrag K gleichmäßig in n Jahren getilgt, so beträgt eine 


Tilgungsrate 
u 
n 
Neben den Tilgungen T sind noch Zinszahlungen für die jeweils vorhandene 
Restschuld fällig. Da diese Restschuld gleichmäßig kleiner wird, vermindert 
sich ebenfalls der Zinsanteil bei den Rückzahlungen. Beträgt der Zins p %, 
so ist am Ende des k-ten Jahres die Rate 


Kp 


R = o0n 


(n—k+1) 


zu zahlen. 


Die Belastung sinkt jährlich um einen festen Betrag (abnehmende arithmeti- 
sche Folge). Werden jährlich z.B. 8000 DM getilgt bei 12 % Zins, so verringert 
sich die Belastung jährlich um 


8000 DM - 0,12 = 960 DM. 
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Zum folgenden Programm 


Nach Eingabe der Kredithöhe, des jährlichen Zinssatzes und der Laufzeit in 
Jahren, druckt das Programm den zugehörigen Tilgungsplan aus. 


Beispiel 
Ein Darlehen in Höhe von 60.000 DM mit 12% Zins soll innerhalb von 10 Jah- 
ren durch Ratentilgung zurückbezahlt werden. Im ersten Jahr sind 6.000 DM 
Tilgung und 

60000 DM - 0,12 = 7200 DM Zins 
fällig. Die anfängliche jährliche Belastung von 

6000 DM + 7200 DM = 13200 DM 


nimmt somit jährlich um 720 DM ab. 
Der genaue Tilgungsplan kann dem Programmausdruck entnommen werden. 


Literaturhinweis: [9] | = = jr 
N ie WER == 


X | 

LT) 

‘sn: 

Pac 
==, x er: 


“Ein Kaufmann liest einem Schuldner die fälligen 
Zahlungen aus dem Schuldbuch vor; der Geselle 
berechnet am Rechenbrett die fällige Zahlung” 
Holzschnitt aus Luthers Deutschem Katechismus 
von 1530 
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100 
110 
120 
130 
140 
150 
170 
175 
180 
190 
200 
205 
210 
215 
220 
225 
230 
235 
240 
250 
260 
265 
270 
275 
280 
290 
295 
300 
310 
400 
470 
480 
490 
495 
300 
305 
309 
310 


REM. „osunnuesunnesunonnnnnnnnnnne .oruneeennnnc.. « RATENTILGUNG 
PRINT".M 3 RATENTILGUNG m 

REM. ..oesonnonnnnnnusun us unnunnn nn. “unuenesunnnuunc.n. «EINGABE 
INPUT" KREDITHOEHE"5K 


PRINT: INPUT" JAHRESZINSSATZ IN %";P 
PRINT: INPUT" LAUFZEIT IN JAHREN”;N 
DEF FNR(X)=INT (100%X+.537/100 


DIM Z(N),S{N),R{N),K(N) 

=K/N 

G= 

REN aan BER IERTTRIS HEHE “annnnnaeee „BERECHNUNG UND AUSGABE 
PRINT"I":PRINT""M JAHR TILG.RATE TILG.ANT. ZINSANT.M" 


FOR I=1 TON 

Z=K#P/100: Z(D=Z 

5=5+Z7: S{(TD)=5 

R=Z+T: R(I)=R 

PRINT I5TAB{tA)FNR(R{TDIIS TABC1A) FNR (TI 5 TAB(ZBIFNR(Z(TDI) 
K=K-T: K(T)=K 

NEXT I 

PRINT: PRINT" ZINSSUMME=" 355 "DM" 

PRINT" IM GRAFISCHE DARSTELLUNG BEI LAUFZEITEN"; 

PRINT" BIS ZU 10 JAHREN" 

PRINT: INPUT" GRAFIK J/N"56$ 

IF 6$="N" THEN G0TO 310 

GOSUB 400 

PRINT" "5 CHR$ (129 5 TILGUNGSANTEIL="5 T5 "DM" 

PRINT" mMZ INSSUMME="3555 "DM" 

GET A$: IF A$="" THEN GOTD 300 

PRINT" TI’'CHR$ (154): POKE 53281,6: END 

REM ERRRRRRRRRRRRRRRRRRBRRHBRRRHHRRHRRRHRRRRRRRRRHHHRE GRAFIK 
MAX=FNR (R (139735 

PRINT"T': POKE 53281,7 

FOR I=1 TON 

01=1024+1x80 

PRINT FNR(R(TY) 5 TAB(20) 5 "M"5FNR(Z{DID 5 

PRINT CHR$ (154): PRINT"71"5 TAB(35) 5 I: PRINT 

REM.on..s Douunouu nenn unse een nenn nn DARSTELLUNG TILG.RATE 
FOR J=0 TO R{T)-Z(I) STEP MAX 
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309 REM. „osuooemunonnenusennunnuunnnnn nen. « DARSTELLUNG TILG.RATE 
310 FOR J=0 TO R(I)-Z{I) STEP MAX 

312 IF Q1>2023 THEN G60TD 550 

315 IF 81>1063+1#80 THEN GOTO 550 

320 02=01+54272: POKE 1,160: POKE 02,8 

330 @1=01+1 

540 NEXT J 

549 REM. 2onseununnuuuonuonunnusununnn un un nun DARSTELLUNG ZINSANT. 
350 FOR J=0 TO Z(I) STEP MAX 

352 IF 01>2023 THEN GOTO 590 

555 IF 01>1063+1*80 THEN GOTO 590 

360 02=01+54272: POKE 01,160: POKE 02,7 

370 81=01+1 

380 NEXT J 

390 NEXT I 

600 RETURN 


READY. 


| RATENTILGUNG | 


KREDITHOEHE? 60000 
JAHRESZINSSATZ IN %? 12 


LAUFZEIT IN JAHREN? 10 


JAHR TILG.RATE TILG.ANT. ZINSANT. 


1 13200 &000 7200 
2 12480 6000 6480 
3 11760 6000 3760 
4 11040 6000 3040 
J 10320 6000 4320 
6 97600 6000 3600 
7 8880 6000 2880 
B 8160 6000 2160 
9 7440 6000 1440 
10 6720 6000 720 


ZINSSUMME= 39600 DM 
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17. ANNUITATENTILGUNG 


Während bei der Ratentilgung der Tilgungsanteil konstant bleibt, ist bei der 
Annuitätentilgung die jährliche Belastung (= Annuität) gleichbleibend. 


Wie beim Effektivzins geht man davon aus, daß der Endwert des ausgeliehe- 
nen Kapitals gleich dem Endwert der geleisteten nachschüssigen Zahlungen ist: 


n_1 
san 
K-q R a1 
Auflösen dieser Gleichung nach R liefert die Annuitätenformel 
Nla— 
AK a 
qaN-1 


die identisch ist mit der Rentenformel, die man erhält, wenn ein Kapital in 
eine Rente verwandelt wird (vgl. Programm 14). 


Für eine Hypothek von 100.000 DM ist bei 8% Zins und 25 Jahren Laufzeit 

eine Ännuität 

1,082 . 0,08 
1,0825 — 1 

fällig. Oft wird jedoch nicht die Laufzeit, sondern die Tilgungsrate i vorgege- 

ben. Die Laufzeit errechnet sich dann aus der Formel 


R = 100000 DM = 9367,88 DM 


log (1 +) 
n — an 
log (1 + oo) 


dabei kann für log der natürliche oder der Zehner-Logarithmus gewählt wer- 
den. 


Bei Hypotheken wird häufig eine Tilgungsrate i = 1% genommen; dies ergibt 
bei 7,5% Zins die Laufzeit 
_ dog(1+7,5) _ 
n >= 109 1,0755 = 29.5913 Jahre. 


Bei Bauspardalehen sind i = 7% und p = 5% üblich; hier ergibt sich eine 
Laufzeit von 


_ log (1+5/7) _ 
n = 109 1,05 = 11,0472 Jahre. 
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Zum folgenden Programm 

Nach Eingabe der Kredithöhe, des jährlichen Zinssatzes, der Laufzeit in Jah- 
ren, wird der Tilgungsplan der Annuitätentilgung ausgedruckt. 

Beispiel 


Eine Hypothek von 100.000 DM soll in 10 Jahren bei 12% Zins durch Annui- 
täten getilgt werden. Die Annuität beträgt 


17.698,42 DM. 
Dies entspricht einer Monatsrate von 
1474,87 DM, 


falls die Tilgungszahlungen nicht unterjährig verzinst werden. 
Der genaue Tilgungsplan kann dem Programmausdruck entnommen werden. 


Literaturhinweis: [9] 
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100 REM... oso00nonneenennunn neuen nenn nun nn nn ANNUITAETENTILGUNG 
120 PRINT"IE 4 ANNUITAETENTILGUNG m" 

125 REMuooson0n« Knoouuenennnnnnne .nunnnsse enuannnnunuunnc. «EINGABE 
130 INPUT" KREDITHOEHE"5K 

140 PRINT: INPUT" JAHRESZINSSATZ IN %"5P 

150 PRINT: INPUT" LAUFZEIT IN JAHREN"5N 

160 DIM T{N),S(N),Z(N) 

170 DEF FNRÜXI=INT (100#X+.5) /100 

180 P=P/100 

190 Q=(1+P)TtN 

200 A=K*Q#P/ (Q-1) 

210 T=A/Q: Tt1)=T 


225 REM. ouaoscouss Sononneoneennnne .nauunen „ „ BERECHNUNG UND AUSGABE 
230 PRINT"MUAHR ANNUITAET TILG.ANT. ZINSANT.M" 

240 FOR I=1 TON 

250 Z=A-T: Z(D)=Z 

260 5=5+Z: S(T)=S 

270 PRINT I5TAB{&) FNR(A)STABELTIFNRCT) 5 TAB(ZBIFNR (Z) 

280 T=T*(1+FP): IF I<N THEN T(I+1)=T 

290 NEXT I 


310 PRINT" NZ INSSUMME=";FNR (5) 3 "DM" 

315 PRINT"GRAFISCHE DARSTELLUNG BEI LAUFZEITEN BIS ZU 10 JAHREN J/N" 
316 INPUT 6$ 

317 IF 6$="N" THEN GOTO 380 

320 GÜOSUB 400 

330 PRINT" BANNUITAET="SFNR (A) 5 "DM" 


340 PRINTCHR$ (150) " ZINSSUMME="5 FNR (5) ; "DM"CHR$ (154) 
GET A$: IF A$="" THEN GOTO 360 

370 PRINT": POKE 53281,6 

380 END 


[N 
O- 
> 
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REN RRRRRRRRRRRRRHRHRIHBHHHHRHBHRHHHHHHHRHH ER GRAFIK 
MIN=Z (N) 

PRINT"!T': POKE 53281,9 

FOR I=1 TON 

01=-1024+1#BO 

FRINT FNR{T{DD) 5 TAB{18) 5; CHR$ (150) 5; FNR(Z{TDI ) 5 CHR$ (154) 
PRINT"; TAB(3595 1: PRINT 

REM. „ueuuenonneunnnunnnnunnnn nn nn. DARSTELLUNG TILGUNGSANTEIL 
FOR J=0 TD INT(T(D *35/A+.5) 

IF 01>2023 THEN GOTD 490 

IF 01>1063+I1#80 THEN GDTO 490 

02=01+54272: POKE 01,160: POKE 02,7 


B1=Q1+1 

NEXT J 

REM. uns nn nenn . „DARSTELLUNG ZINSANTEIL 
FOR J= INT(T(D#35/A+.S) TO 35 


IF 01>2023 THEN GOTD 540 

IF 01>1063+1*B0 THEN GOTO 540 
02=01+54272: POKE 01,160: POKE 02,10 
01=Q1+1 

NEXT J 

NEXT I 

RETURN 


READY. 
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ANNUITAETENTILGUNG 


| ANNUITAETENTILGUNG | 


KREDITHOEHE? 100000 


JAHRESZINSSATZ IN 4? 12 


LAUFZEIT IN JAHREN? 10 


JAHR ANNUITAET 


-SISONDTUWIBUN" 


Ö 


17698.42 
17698.42 
17698.42 
17698.42 
17698.42 
17698.42 
17698.42 
17698. 42 
17698.42 
17698.42 


TILG.ANT. 


3698.42 
6382.23 
7148.09 
8005.B6 
8966.57 
10042.56 
11247.66 
12597.38 
14109.07 
15802.16 


ZINSSUMME= 76984.16 DM 


READY. 


ZINSANT. 


12000 
11316.19 
10550.32 
9692.55 
8731.85 
7655.86 
6450.75 
3101.03 
3589.35 
1896.26 
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17A. GEGENÜBERSTELLUNG VON RATENTILGUNG UND 
ANNUITATENTILGUNG 


Die unterschiedlichen Zahlungsweisen dieser Tilgungsarten verdeutlicht noch 
einmal das folgende Programm. Hier sind beide möglichen Berechnungen zu- 
sammengefaßt und lassen sich in Form von Diagrammen darstellen. Durch 
Bedienung der Funktionstasten können hintereinander beide Tilgungsarten 
miteinander verglichen werden. Es lassen sich wieder die Eingaben der Pro- 
gramme 16 und 17 als Beispiel verwenden. 
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10 
20 
so 
40 
30 
60 
70 
80 
85 
86 
90 


REM.„zouuunn0n0n... VERGLEICH VON ANNUITAETEN- UND RATENTILGUNG 
PRINT" 2 RATEN- UND ANNUITAETENTILGUNG m" 

PRINT"M DIE DARSTELLUNG VON RATENTILGUNG" 

PRINT" DURCH DRUECKEN VON F 1." 

PRINT"M DIE DARSTELLUNG DER ANNUITAETENTILGUNG" 

PRINT" DURCH DRUECKEN VON F 3." 

PRINT" ZWISCHEN BEIDEN DARSTELLUNGEN KOENNEN SIE AUCH MIT";5 
PRINT" DIESEN TASTEN WECHSELN." 

PRINT" WAEHLEN SIE IRGENDEINE ANDERE TASTE, WIRD DAS"; 
PRINT" PROGRAMM BEENDET." 

PRINT"M 3 IHRE EINGABE?" 


100 GET F$:IF F$="" THEN GOTO 100 

110 IF NOTCASC(F$)=133 OR ASC(F$)=134) THEN GOTD 840 

120 REM... -sseuraonnouununnne Konsenonananunen ..unnennnnn. „EINGABE 
130 INPUT" Il KREDITHOEHE"5K 

140 PRINT: INPUT" JAHRESZINSSATZ IN %"5P 

150 PRINT: INPUT" LAUFZEIT IN JAHREN"SN 


160 


DIM TI{N),SI(N?,ZI(N),Z2(N) ,S2(N),R2(N),K2(N) 


165 REM. „2000 0 0 0 00 nn nn nn nun nun onen nn nun nen nun nn nn nn = BERECHNUNGEN 
170 DEF FNRCX)I=INT (100%X+.5) /100 


180 F1=P/100 


170 
200 


@=(1+P1)TN 
A=K#Q#P1/ (0-1) 


210 T1=A/Q: T1(1)=-T1 


220 


51=0 


240 FOR I=1 TON 


Z50 


Z1=A-T1: Z1(D=Z1 


260 51=-51+Z1: S1(D=5S1 

280 T1=T1*t1+P1): IF I<N THEN T1(I+1)=T1 
290 NEXT I 

510 IF ASC(F$)=133 THEN GOTO 590 
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REM. „.oononnnuensnnnnnnnnunnnn nn nn nn nn ANNUITAETENDARSTELLUNG 
PRINT": POKES3201,9 

FOR I=1 TON 

01=1024+1x#80 

PRINTCHR$ (129 5 FNR(TICTI I 5 TAB (20) 5 "m"; FNR(Z1CTI I 5SCHR$ (154) 
PRINT""1"5 TAB(35)51: PRINT 

REM. a a nannten LILBUNGSANTEIL 
FOR J=0 TO INT(TI (I) #35/A+.5) 

IF 81>2023 THEN GOTD 490 

IF Q1>10643+1x*80 THEN GOTO 490 

02=91+54272: POKE 01,160: POKE 02,8 

01=01+1 

NEXT J 

REM aa en isn ZINSANTETL 
FOR J=INT(T1(1)#35/A+.5) TO 35 

IF 81>2023 THEN GOTO 540 

IF 81>1063+1*80 THEN GOTO 540 

02=01+54272: POKE 01,160: POKE 02,7 

01=Q1+1 

NEXT J 

NEXT I 

PRINT" KANNUITAET="3FNR (A) 5 "DM" 

PRINT" mZ INSSUMME=" 5 FNR (51) 5 "DM" 5 CHR$ (154) 


GOTO 820 

REN ee “nunnennunenannnnenn  RATENDARSTELLUNG 
T2=K/N: 82=0: K2=K 

FOR I=1 TON 


Z2=K2#P/100: Z2(D)=Z2 

52=52+72: S52(1)=82 

R2=22+T2: R2(I)=R2 

K2=K2-T2: K2(T)=K2 

NEXT I: PRINT 

MAX=FNR {R2 (1993/35 

PRINT"I": POKES3281,9 

FOR I=1 TO N: Q1=1024+1x*80 

PRINTFNR (R2 (I) ) 3 TAB(20) 5 "m"; FNR(ZZ2CI) ) SCHR$ (154) 
PRINT""5 TAB(35)51I: PRINT 
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705 REM. „„oosusunouuunuuunennunununnnununn nun nn nn nn TILGUNGSANTEIL 
710 FOR J=0 TOD R2(T)-Z2Z{I) STEP MAX 

715 IF Q1>2023 THEN GOTO 7680 

720 IF @1>1063+1*80 THEN GOTO 760 

730 02=01+54272: POKE 01,160: POKE 02,8 

740 01=01+1 

750 NEXT J 

755 REM. „asuno Bonn nunenuuu nennen Senna nenn nn. ....... ZINSANTEIL 
760 FOR J=0 TO Z2{(I) STEP MAX 

765 IF 01>2023 THEN GDTD 810 

770 IF 01>10583+1x80 THEN GOTD 810 

780 02=01+54272: POKE 01,160: POKE 02,7 

790 Q1=Q1+1 

800 NEXT J 

810 NEXT I 

811 PRINT"MTILGUNGSANTEIL="5 T25 "DM" 

812 PRINT"mZINSSUMME=" 5525 "DM" 

820 GET F$: IF F$="" THEN GDTO 820 

8350 IF (ASC(F$)=1353 OR ASC(F$)=134) THEN GOTO 180 
840 PRINT"IT'CHR$(154)5: POKE 53281,6 

850 END 


READY. 
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18. WERTMINDERUNG bzw. STEIGERUNG EINES OBJEKTS 


Die Wertänderung eines Objekts kann wie die Verzinsung eines Kapitals nach 
der Zinseszinsformel 


Kn = KoqN 


berechnet werden (vgl. Programm 6). Der Aufzinsungsfaktor q=1 + > be- 


stimmt sich daraus zu 100 
_ n /Kn 
q = BARIESLERN 


Ko 


entsprechend der Zinsatz- bzw. die Änderungsrate 


n Kn 
p = (a-1) - 100% = ( —— -1) - 100%. 
Ko 


Ein Reihenhaus vom Kaufpreis 342.000 DM konnte nach 4 Jahren zu 
475.000 DM verkauft werden. Es ergibt sich eine jährliche Rendite von 


a /arennm 
( 22005 -1): 100% = (1.085596 —1) - 100% = 8,56 %. 


Das Vermögenseinkommen der privaten Haushalte in der Bundesrepublik 
stieg von 23,03 Mrd. DM 1970 auf 72,73 Mrd. DM im Jahre 1980 an. Die 
‚Jährliche Wachstumsrate beträgt 


109 
y 2.73: 10° _4). 100% = (1,121869 —1) - 100% = 12,2% 


23,03 - 109 


Die Kaufkraft der DM fiel von 100% 1970 auf 62% im Jahr 1979. Dies ent- 
spricht einer mittleren Geldentwertungsrate von 


9 
> ) - 100% = (1. — 0,948271) - 100% = 5,2 % 


100 En 


_ 


(1 


Zum folgenden Programm 


Nach Eingabe des Anschaffungs-, Wiederverkaufswerts und der Nutzungs- 
dauer berechnet das Programm die Wertsteigerungs- bzw. minderungsrate. 


Beispiel 
Ein PKW zum Listenpreis von 32.768 DM wird nach 4 Jahren zu 16.000 DM 


weiterverkauft. Dies entspricht einer jährlichen Wertminderungsrate von 
16,4%. 
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100 
110 
120 
140 
150 
160 
180 
200 
210 
220 
230 
250 
260 
270 
280 
290 
300 


REM. „osusuun0nnu nun... WERTMINDERUNG/STEIGERUNG EINES OBJEKTS 


PRINT" 4 WERTMINDERUNG/-STEIGERUNG m" 
REM: ESS au 2 2 8 8 eu u 8 8 gg a as 2a ss sa as a ns a ss a a ns a oa 8 EINGABE 
INPUT" ANSCHAFFUNGSWERT"5A 


PRINT: INPUT" WIEDERVERKAUFSWERT";W 

PRINT: INPUT" NUTZUNGSDAUER IN JAHREN"5N 

IF W>A THEN 250 

REM. o.an0n. m... nun. .un.on .nonsnnanannn ..... WERTMINDERUNG 
R=1-(W/A)T(1/N) 

PRINT"MM& JAEHRL. WERTMINDERUNG ="; 

GOTO 280 

REM a een WERTSTEIGERUNG 
R={wW/A) T(1/N -1 

PRINT". JAEHRL. WERTSTEIGERUNG ="; 

PRINT INT(1E4*R+.5) /1005 "X"CHR$ (154) 

PRINT: PRINT: PRINT 

END 


READY. 


WERTMINDERUNG/-STEIGERUNG 


WERTMINDERUNG/-STEIGERUNG 
ANSCHAFFUNGSWERT? 32768 
WIEDERVERKAUFSWERT? 16000 


NUTZUNGSDAUER IN JAHREN? 4 


JAEHRL. WERTMINDERUNG = 16.41 % 
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19. LINEARE ABSCHREIBUNG 


Zum Ausgleich der Wertminderung von Gütern erlaubt der Gesetzgeber eine 
steuerliche Abschreibung, im Amtsdeutsch auch Absetzung für Abnutzung 
(AfA) genannt (vgl. 8 7,1 EStG). 

Eine häufige Form der Abschreibung ist die lineare Methode, bei der der ge- 
samte Wertverlust in gleichbleibenden Raten abgeschrieben wird. 


Kann z.B. eine Büro-Einrichtung vom Wert 5600 DM innerhalb von 10 Jahren 
linear abgeschrieben werden, so werden jährlich 560 DM abgesetzt. 


Gebäude können i.a. nur mit 2% linear abgeschrieben werden. In bestimmten 
Fällen sind nach dem bekannten Paragraphen S 7b EStG erhöhte Abschrei- 
bungen möglich. 


Zum folgenden Programm 


Nach Eingabe von Anschaffungswert, Schrottwert und Nutzungsdauer, wird 
für jedes Jahr die Höhe der Abschreibung und der verbleibende Restwert 
(= Buchwert) berechnet. 


Beispiel 


Eine Maschine vom Anschaffungswert 40.000 DM soll in 10 Jahren linear auf 
den Schrottwert 500 DM abgeschrieben werden. Die jährliche AfA ist somit 
3950 DM (vgl. Programmausdruck). 


Literaturhinweis: [5] 
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100 
120 
125 
130 
140 
150 
155 
160 
170 
180 
1970 
195 
200 
205 
210 
220 
2350 
240 
250 
260 
270 


REM. 2a ss .nnonsuuunnune „annuan0ne. “LINEARE ABSCHREIBUNG 
PRINT" 3 LINEARE ABSCHREIBUNG m" 
REN: Sessel en Dnnsenennnnnnann EINGABE 


INPUT" ANSCHAFFUNGSWERT" 5 WI 

PRINT: INPUT" SCHROTTWERT"5S 

PRINT: INPUT" NUTZUNGSDAUER IN JAHREN"SN 

REMESSSE Eee BERECHNUNGEN 
W=Wi 

DEF FNR{X)I=INT(X+.59) 

A=(W-S) /N 

FRINT"’IM 9% JAHR ® sl ABSCHREIBUNG E 4"; 
PRINTCHR$(150)"3 BUCHWERT E "CHR$ (154) :PRINT 

FOR I=0 TO N 

IF I=60 THEN A=0 

PRINT TAB(FI "A" I" M"TABIISI FNRCA)TAB(S0) CHR$ (150) FNR{W 
A=(W1-SY /N: W=W-A 

NEXT I 

PRINTCHR$ (154) 

INPUT"WEITERE BERECHNUNGEN J/N"; WB$ 

IF WB$="J" THEN GOTO 120 

END 


READY. 
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| LINEARE ABSCHRETIBUNG 


ANSCHAFFUNGSWERT? 40000 
SCHROTTWERT? 500 


NUTZUNGSDAUER IN JAHREN? 10 


JAHR ABSCHREIBUNG BUCHWERT 

0) Ö 40000 
1 3950 36050 
2 3950 32100 
3 3950 28150 
4 3950 24200 
ee) 3950 20250 
6 3950 16300 
7 3950 12350 
B 3950 8400 
I 3950 4450 

10 Ä 39750 300 

READY. 
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20. DEGRESSIVE ABSCHREIBUNG 


Da in den ersten Nutzungsjahren die Wertminderung besonders groß ist, ver- 
wendet man statt der linearen die degressive Abschreibung (auch geometrisch- 
degressiv oder Buchwert-AfA genannt). 


Da vom jeweiligen Buchwert ein konstanter Prozentsatz p abgeschrieben 
wird, stellen die Restwerte eine fallende geometrische Folge dar 


Rn > At - N 


dabei ist A der Anschaffungswert. 

Nach 8 7 Abs. 2 EStG ist die degressive Abschreibung für bewegliche Güter 
und zwar mit dem 2,5fachen des linearen Satzes, höchstenfalls jedoch 25%, 
zulässig. 


Eine Büromaschine im Wert von 20.000 DM soll in 10 Jahren weitestgehend 
abgeschrieben werden. Dem linearen Satz von 10% entspricht dann der de- 
gressive von 25%. 

Dabei ergeben sich folgende Buchwerte 


Rı = 20000 DM - 0,25 = 5000 DM 

R2 = (20000--5000) DM - 0,25 = 3750 DM 

R3 = (20000--5000--3750) DM : 0,25 = 2812 DM 

Ra = (20000-5000-3750-2812) DM - 0,25 = 2110 DM 


Rıo = 1501 DM - 0,25 = 375 DM. 


Wie man sieht, werden die AfA-Beträge stets kleiner, so daß die Restwerte 
niemals Null werden. 
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Restwert einer Maschine vom Anschaffungswert 40.000 DM 
bei 20% degressiver Abschreibung 


DM 
40.000 


36.000 


32.000 


28.000 


24.000 


20.000 


16.000 


12.000 


8.000 


4.000 


1 2 3 4 5 6 7 8 9 10 Jahr 
Zum folgenden Programm 


Nach Eingabe des Anschaffungswertes, des Abschreibungssatzes und der 
Nutzungsdauer wird für jedes Jahr der Abschreibungsbetrag und der jeweilige 
Restwert berechnet. 


Beispiel 


Eine Maschine vom Anschaffungswert 40.000 DM soll degressiv 10 Jahre lang 
um 20% abgeschrieben werden. 


Wie man dem Programmausdruck entnimmt, beträgt der Buchwert nach 10 
Jahren noch immer 4295 DM. 


Literaturhinweis: [5] 
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100 
120 
125 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
285 
290 
295 
296 
297 
300 
301 
302 


REM. „uoosunanuoncuonnune ....uu eann.n.. DEGRESSIVE ABSCHREIBUNG 
PRINT"M 3 DEGRESSIVE ABSCHREIBUNG a" 
REN eene Suse neuunnenennnnmnnn EINGABE 


INPUT" ANSCHAFFUNGSWERT"3W1 
PRINT: INPUT" ABSCHREIBUNGSSATZ IN %";5P 
PRINT: INPUT" NUTZUNGSDAUER IN JAHREN" 5N 
REM een re BERECHNUNGEN UND AUSGABE 
DEF FNR(X)=INT (X+.5) 
=P/100:W=W1 
PRINT:PRINT"JAHR ABSCHREIBUNG BUCHWERT" 
FOR I=1 TON 
=WxP 
=W-A 
PRINTI,FNR (A) ,FNR(W) 
NEXT I 
PRINT:PRINT: INPUT"GRAFISCHE DARSTELLUNG J/N"56$ 
IF 6$="J" THEN GOTO 280 
END 
REMARRRKKERENEREREIH EHEN TEILEN KT HH N IHR K HK RR ORÄFIK 
V=53248 
POKE V+17,59: POKE V+24,24 
FOR 1=1024 TO 2023 
POKE 1,14 
NEXT I 
FOR 1=8192 10 16192 
POKE I,0 
NEXT I 
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305 
320 
330 
340 
350 
360 
370 
380 
3970 
400 
410 
420 
430 
440 
450 
460 
470 
490 
S00 
310 
320 
330 
340 
270 
380 
3r0 
600 
610 
620 
630 
640 
650 
660 


REM..... an 5 2 2 8 = .e., 3a... e. sn u. 5 58 5 5 5 8 5 9 u 9 u 5 


FOR X=10 TO 319 

Y=190: GOSUB 1000 

NEXT X 

FOR Y=0 TOD 190 

X=10: GOSUB 1000 

NEXT Y 

FOR X=10 TO 10+{N%*#1)#15 STEP 15 
FOR Y=191 TO 195 

GOSUB 1000 

NEXT Y 

NEXT X 

FOR Y=190 TO 190-N#15 STEP -15 
FOR X=5 TO 9 

GOSUB 1000 

NEXT X 

NEXT Y 

6=0 


REM Seanes .n-..n: 5. 


FOR X=10 TO 10+N#15 

S=W1/N/1S 

K=W1#(1-P) T((X-10)/19 

Y=K/S5 

Y=-Y+190 

IF X<0 THEN X=0 

IF X>3517 THEN X=317 

IF YO THEN Y=0 

IF Y>197 THEN Y=197 

GOSUB 1000 

NEXT X 

GET Z$:IF Z$="" THEN GOTO 640 
POKE 53248+17,155: POKE 53248+24,21 
PRINT"7": END 
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nennen nennnnune ACHSEN 


..... -„ „FUNKTION BERECHNEN 


999 REN essen FUNK! SETZEN 
1000 XK=8*INT (X/8) 


1020 YK=320#1INT (Y/8) +INTC(Y/8-INT(Y/89)%8) 
1040 EX=21 (7-INT((X/B-INT(X/B))x*8)) 

1060 5=8192+XK+YK 

1080 POKE S,PEEK(S) DR EX 

1100 RETURN 


READY. 


DEGRESSIVE ABSCHREIBUNG 


DEGRESSIVE ABSCHREIBUNG 
ANSCHAFFUNGSWERT? 40000 
ABSCHREIBUNGSSATZ IN %? 20 
NUTZUNGSDAUER IN JAHREN? 10 


JAHR ABSCHREIBUNG BUCHWERT 


1 8000 32000 
2 6400 25600 
3 3120 20480 
4 4098 16584 
J 3277 13107 
6 2621 10486 
7 2097 8389 

8 1678 6711 

9 1342 3369 

10 1074 4295 
READY. 
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DM 


| DEGRESSIVE ABSCHREIBUNG | 


JAHRE 


100 


21. GEMISCHT LINEARE UND DEGRESSIVE ABSCHREIBUNG 


Da bei der degressiven Abschreibung der Schrottwert Null nicht erreicht wer- 
den kann, ist nach 8 7,3 EStG der Übergang von der degressiven zur linearen 
Abschreibung erlaubt, jedoch nicht umgekehrt. Der günstigste Zeitpunkt da- 
für ist, wenn der lineare Abschreibungsbetrag dem degressiven gleichkommt. 
Bei einer Nutzungsdauer von 10 Jahren ist dies im 7. Jahr der Fall, der Rest- 
wert nach dem 6. Nutzungsjahr kann dann linear auf Null abgeschrieben wer- 
den. 


Zum folgenden Programm 


Nach Eingabe des Anschaffungswerts, des degressiven Abschreibungssatzes 
und der Nutzungsdauer wird für jedes Jahr der jeweilige Abschreibungsbetrag 
und der Buchwert berechnet. Das Programm geht zum optimalen Zeitpunkt 
von der degressiven zur linearen Abschreibung über; die Art der Abschreibung 
wird jeweils angegeben. 


Beispiel 

Eine Maschine vom Anschaffungswert 50.000 DM soll in 10 Jahren optimal 
auf den Wert Null abgeschrieben werden. 

Wie man dem Programmausdruck entnehmen kann, erfolgt die AfA 7 Jahre 
lang degressiv. Der Buchwert von 8899 DM nach dem 6. Jahr wird dann linear 
4 Jahre lang mit je 2225 DM abgeschrieben. Dabei stimmt im 7. Jahr der line- 
‚are und degressive Abschreibungsbetrag überein. 


Literaturhinweis: [5] 
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REM. „.o2ooeon0o... GEMISCHT LINEARE UND DEGRESSIVE ABSCHREIBUNG 


110 PRINT"IIN 3 GEMISCHTE ABSCHREIBUNG m" 

120 REM. „..oouonannonuonnaon un anna nun ann use nn nun. EINGABETEIL 
130 DEF FNRÜXI=INT (X+.5) 

150 INPUT" ANSCHAFFUNGSWERT"5A 

160 PRINT: INPUT" DEGRESS.ABSCHREIBUNG IN %"55 

170 PRINT: INPUT" NUTZUNGSDAUER IN JAHREN"5N 

190 REM. „auouuuo Knunnensennnunnnnnnun nn... DEGRESSIVE ABSCHREIBUNG 
200 J=1 

210 B=A: 5=S/100 

220 PRINT"): POKE 53281,11 

230 PRINT" MNSRJAHR"TAB (8) 5; CHR$ (150) 5 "BUCHWERT"5 

235 PRINTTAB (20) 5 "EIBETRAG"TAB (32) 5SCHR$ (129) 5; "ART" 

240 D=B*S5 

250 L=B/ (N-J+1) 

260 IF L>D THEN 320 

270 B=B-D 

280 PRINT"mM"J5 TAB (8) ;CHR$ (150) 5; FNR (B) s TAB (20) "H"FNR (D) 5 

285 PRINT TAB(32) ;CHR$ (152) 5 "DEG" 

290 J=J+1 

300 G0TO 240 

310 PRINTCHR$ (154) 

320 REM.„.„o2esuesenunnenennnn nn. VEBERGANG AUF LINEARE ABSCHREIBUNG 
330 B=B-L 

340 IF B=<O THEN B=0 

350 PRINT"M"J3 TAB (8) ; CHR$ (150) 5 FNR (B) 5 TAB (20) "BI"FNR (L) 5 

355 PRINT TAB(32)5; "aLIN" 

S360 J=J+1 

370 IF J>N THEN PRINTCHR$ (154): GOTO 390 

380 GOTO 330 

385 REM. 2oocscnc. .oonenuenenenen Lennon unnennnune - .. . WIEDERHOLUNG? 
390 INPUT"NOCH EINE BERECHNUNG J/N"5NB$ 

400 PRINT"!I": POKE 53281,6 

410 IF NB$="J" THEN GOTO 150 

420 END 

READY. 
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GEMISCHTE ABSCHREIBUNG 


GEMISCHTE ABSCHREIBUNG 
ANSCHAFFUNGSWERT? 50000 
DEGRESS.ABSCHREIBUNG IN %7? 25 


NUTZUNGSDAUER IN JAHREN? 10 


JAHR BUCHWERT BETRAG ART 
1 37500 12500 DEG 
2 28125 9375 DEG 
3 21094 7031 DEG 
4 15820 3273 DEG 
he) 11865 3955 DEG 
& 8897 2966 DEG 
7 6674 2225 DEG 
8 4449 2229 LIN 
I 2225 2225 LIN 
10 19) 2225 LIN 


NOCH EINE BERECHNUNG J/N? N 


READY. 
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22. DIGITALE ABSCHREIBUNG 


Auch bei der digitalen Abschreibung erhält man monoton fallende Abschrei- 
bungsbeträge, so daß in den ersten Nutzungsjahren die Abschreibungsbeträge 
besonders hoch sind. 

Werden dabei in den ersten drei Jahren die Abschreibungsbeträge der degressi- 
ven Methode überschritten, so ist die digitale AfA nach 8 7, Abs. 2 EStG nicht 
gestattet. Sie kann jedoch zur innerbetrieblichen Buchführung verwendet wer- 
den. 


Die digitale Abschreibung berechnet sich wie folgt: 
Ist die Nutzungsdauer n Jahre, so bildet man die Summe 
s= 1+2+3+...+tn 


und erhält damit folgende Abschreibungsbeträge 


1. Jahr ZA 
2.Jahr IA 
3.Jahrr a 


n-tes Jahr JA 
Dabei ist A der Anschaffungswert. 
Beispiel 


Eine Anlage im Wert von 30.000 DM soll digital in 5 Jahren vollständig abge- 
schrieben werden. Mit der Summe 


s=1+2+3+4+5 = 15 
berechnen sich die Abschreibungsbeträge zu 


1. Jahr n . 30.000 DM = 10.000 DM 
2. Jahr N .30.000DM = 8.000 DM 
3. Jahr = 30.000 DM = 6.000 DM 
4. Jahr — .30.000 DM = 4.000 DM 
5. Jahr nn .30.000 DM = 2.000 DM 


Es ergibt sich hier eine fallende arithmetische Folge mit dem Anfangswert 
10.000 DM und der Differenz 2.000 DM. 
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Restwert einer Maschine vom Anschaffungswert 50.000 DM 
bei digitaler Abschreibung in 10 Jahren 


50.000 


45.000 


40.000 


35.000 


30.000 


25.000 


20.000 


15.000 


10.000 


5.000 


1 2 3 4 5 6 7 8 9 10 
Zum folgenden Programm 


Nach Eingabe des Anschaffungswerts, Schrottwerts und der Nutzungsdauer 
wird für alle Jahre der jeweilige Abschreibungsbetrag und der Restwert ermit- 
telt. 


Beispiel 


Eine Maschine vom Anschaffungswert 50.000 DM soll in 10 Jahren digital auf 
den Schrottwert 200 DM abgeschrieben werden. 

Wie man dem Programmausdruck entnimmt, nimmt der Abschreibungsbetrag 
vom Anfangswert 9.055 DM jährlich jeweils um 905,45 DM ab. 
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Jahr 


REM. 220.0. een ....... „neunnnn.n „DIGITALE ABSCHREIBUNG 
PRINT"!M 3 DIGITALE ABSCHREIBUNG m" 
REN an SERS EEE er sea . „EINGABE 


INPUT" ANSCHAFFUNGSWERT" 53 W1 
PRINT: INPUT" SCHROTTWERT"5S 
PRINT: INPUT" NUTZUNGSDAUER IN JAHREN"5SN 


REM: sn san een Bee ....... «... . BERECHNUNGEN UND AUSGABE 
W=W1 
DEF FNR{XI=INT(X+.I9) 


D=2%* (W-5) /N/{N+DD 
A=2%* (W-5) /(N+1) 
PRINT"MM 3 JAHR ABSCHREIBUNG RESTWERT IM" 


FOR I=1 TON 

W=W-A 

PRINT" "3I1,FNR{A)STAB(24) ;FNRCW) 
A=A-D 

NEXT I 


INPUT" GRAFIK J/N"56$: IF G$="" THEN GOTO 260 
IF 6$="J" THEN GOTO 300 

PRINT"/!": END 

REM 2ER RRREEREERKKHIHHKRRIKRIRKKKKKHKKKHRKRHR HN KR NN GRAFIK 
V=53248 

POKE V+17,59 

POKE V+24,24 

FOR I=1024 TO 2023 

POKE 1,14 

NEXT I 

FOR 1=8192 TO 16383 

POKE I,0 

NEXT I 
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REN: Hau rien SRCHSENKREUZ 
FOR X=10 TO 319 

Y=190: GOSUB 700 

NEXT X 

FOR Y=0 TO 190 

X=10: GOSUB 700 

NEXT Y 

FOR X=10 TO 10+N#15 STEP 15 
FOR Y=191 TO 195: GOSUB 700 
NEXT Y 

NEXT X 

FOR Y=190 TO 190-N#15 STEP -15 
FOR X=5 TO 9: GOSUB 700 

NEXT X 

NEXT Y 

REM ee nen nee seeensu FUNKTION 
W=W1:5=0 

FOR I=1 TO N#15: S=S+1: NEXT I 
Q=W1/N/15 

FOR I=0 TD N#15 
W=W-W1#(N#15-1)/5 

Y=-W/8+190 

X=I+10 

IF X<O THEN X=0 

IF X>319 THEN X=319 

IF Y<O THEN Y=0 

IF Y>199 THEN Y=199 

GOSUB 700 

NEXT I 

GET Z$: IF Z$="" THEN GOTO 560 
POKE V+17,155: POKE V+24,21 
PRINT"7I’: END 
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700 REM. oooenesunnununuuunnnununenunennnn nenn nenn nn n «PUNKT SETZEN 
710 XK=B#INT (X/8) 

720 Yk=320#1NT (Y/B8) +INT((Y/8-INT(Y/8))%*8) 

730 SP=8192+XK+YK 

740 EX=2117-INT((X/B-INT(X/B))%*B)) 

750 POKE SP,PEEK(SP) OR EX 

760 RETURN 


READY. 


| DIGITALE ABSCHREIBUNG | 


DIGITALE ABSCHREIBUNG 
ANSCHAFFUNGSWERT? 50000 
SCHROTTWERT? 200 
NUTZUNGSDAUER IN JAHREN? 10 


JAHR ABSCHREIBUNG RESTWERT 


1 9055 40945 
2 8149 32796 
3 7244 25555 
4 6358 19215 
J 3433 13782 
6 4527 9255 
7 3622 3633 

8 2716 2916 
9 1811 1105 

10 905 200 


GRAFIK J/N? J 
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DIGITALE ABSCHREIBUNG 
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23. MONATLICHE EINKOMMENSTEUERBERECHNUNG 


Zum folgenden Programm 


Zunächst werden die Beitragsbemessungsgrenze der Rentenversicherungen 
und die Prozentsätze für Krankenkasse, Kirchensteuer, Arbeitslosenversiche- 
rung in Form von DATA-Werten eingelesen. Bei Bedarf müssen einzelne Werte 
geändert werden, z.B. beträgt der Kirchensteueranteil an der Lohnsteuer in 
manchen Bundesländern 9%. 

Sodann werden nach Eingabe von Bruttolohn, Steuerklasse, Kinderzahl und 
zusätzlichen Freibeträgen (z.B. nach 8 7b EStG) in getrennten Unterprogram- 
men Lohnsteuer, Kirchensteuer, Rentenversicherung, Arbeitslosenversicherung 
und Krankenkasse berechnet. 


Das Programm stellt den Stand von 1982 dar. Die für 1983 geplanten Ände- 
rungen betreffen hauptsächlich 

— die Ergänzungsabgabe 

— den Wegfall der Steuerklasse I 

— Anrechnung von Arbeitslosengeld 

— Vorsorgepauschäle bei Beamten. 


Im Programm sind berücksichtigt 

— Arbeitnehmer-Freibetrag von 480 DM 

— Werbungskosten-Pauschale von 564 DM 

— Sonderausgaben-Pauschale von 270 DM bzw. 540 DM 

— Haushalsfreibetrag von 4.212 DM in Steuerklasse II 

— Splittingverfahren in Steuerklasse III. 
Bei der Kirchensteuer werden die Kinderfreibeträge berücksichtigt, jedoch 
nicht die 

— Mindestbetragsgrenze von 0,30 DM in Hessen bzw. 0,60 DM in 
Baden-Württemberg, Hamburg, Niedersachsen und Schleswig-Holstein 

— Höchstgrenze von 3 bzw. 3,5% des zu versteuernden Einkommens 
in Berlin, Bremen, Hamburg bzw. Niedersachsen und Schleswig-Holstein. 


Beim Rentenversicherungs- und Arbeitslosenversicherungs-Betrag wird jeweils 
nur der Arbeitnehmeranteil berechnet. 
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Beispiel 
Ein verheirateter Arbeitnehmer mit 2 Kindern hat ein monatliches Bruttoein- 
kommen von 2.800 DM. Für sein Eigenheim kann er 5% von 150.000 DM 
nach 8$ 7b als Freibetrag geltend machen. Dies ergibt einen monatlichen Vor- 
wegabzug von 625 DM. 
Das Programm berechnet folgende Abzüge 

Lohnsteuer 313,— DM 

Kirchensteuer 19,84 DM 

Krankenkasse 165,20 DM 

Rentenversicherung 252,— DM 

Arbeitslosenversicherung 56,— DM. 


Somit verbleibt ein Nettolohn von 1.993,96 DM. 


Die Verteilung der Steuerlast 


Von den 21Millionen Verdienern Sie trugen zum Steueraufkommen 
zahlten: hei: 
keine RT a I 
Steuern BEANTITUEN ın der Bundesrepublik Deutschlan 
(Nullzone) l ü l i | (Schätzung) 0 Mrd DM 


22%Steuern © 0 00000.0 
(Untere Propor- 


| « 
tionalzone "TI 2Millionenz & 22.9Mrd DM 
des Steuertarifs) R ' | 8 \ MW ! 


von22bis 
56% Steuern’ age OÖ OÖ 6) Ö ®) v, RS) (®) 


(Progressions- r [ y ven 7 DC.) ji dad 
Mrd DM 1 
NA N N u \ Bi} "073 KET | Il 


56%Steuern‘ L001Millionen 
(Obere Propor- 


G 25,6 Mrd DM 


*türden Teil des Einkommens.der die vorangegangene Tarıfzone überschreitet 
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REN ae MONATSLOHNSTEUER-BERECHNUNG 
PRINT" 3 MONATSLOHNSTEUER-BERECHNUNG m" 

DEF FNR(X) =54#1NT (X/54) 

DEF FNT{XI=INT (ABS (X) #1000) /1000#SGN (X) 

REM. „.oouos« Kunenuunseunuuenuenneunnn BEITRAGSBEMESSUNGSGRENZEN 
READ: Bl: «REM. mu. sea re RENTENVERSICHERUNG 
BZFB1#5/48: REM: 2.4. a . KRANKENKASSE 
REM Es PROZENTSAETZE 
READ: Pl: REM se53,..02:u ae KIRCHENSTEUER 
READ:F2: REM aaa RENTENVERSICHERUNG 
READ::P3:2 REM sr nn ..„ARBEITSLOS.VERSICH. 
READ P4: REM „„oncuunnunnn Dornen euunesnue nenn nn“ KRANKENKASSE 


INPUT" BRUTTOLOHN": BL 

PRINT: INPUT" STEUERKLASSE":SK 

PRINT: INPUT" ZAHL DER KINDER";KI 
PRINT: INPUT" FPERSOENL.FREIBETRAG"5FE 
SF=BL-FB 


REM a a ee ee ae ee DITEUER 
GOSUB 570 


REM . nu a a 5 8 Be ianiinerierensssackK IREHENSTEUER 


REM „.u0. .nnun0n .unnunnnns Bounsennunennene RENTENVERSICHERUNG 


GOSUB 1760 
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460 
470 
480 
490 
300 
s10 
320 
330 
340 
350 
370 
380 
390 
600 
610 
620 
630 
640 
650 
660 
670 
670 
700 
710 
720 
750 
740 
750 
760 
770 
780 
770 
800 
810 
820 
830 
840 


REM „.... nennen anne nun AUSEABE 
PRINT"M LOHNSTEUER =";1L55 "DM" 
PRINT"M KIRCHENSTEUER ="5K55 "DM" 
PRINT" KRANKENKASSE ="5 KK; "DM" 
PRINT"M RENTENVERSICHERUNG ="5;RV5; "DM" 
PRINT"M ARBEITSLOSENVERSICH. ="5AV; "DM" 


NL=BL-LS-KS-KK-RV-AV 

NL=INT (NL#100+. 001) /100 

PRINT" 39 NETTOLOHN ="5NL5 "I DM m" 

END 

REM. ann nun KEIEOE SEEN DEREN HERE naneennnnnn “LOHNSTEUER 
JL=8F#12:J=JL 

REM. .... SERIE NHERENEENEERE Kennnnenannnennnnnnn „ FREIBETRAEGE 
ON SK GOTD 610, 610,620, 610,630, 640 


J=J-1314: GOTD 650 
J=J-1584: GOTO 850 
J=J-1044: GOTO 650 


J=J-1B 
REM .ss eo a so a Denn nun nenne een une nme un nn nn nn  HAUSHÄALTSFREIBETRAÄG 
IF SK=2ANDKI>O THEN J=J-4212 


IF SK>4 THEN 860 


REM. ouoosoun nennen nenn un nn un une nuuunnnsen VORSORGEPAUSCHALE 
W=1: B=W 
VF=9%JL/100 


IF JL>B1%*12 THEN VP=18%*B1%*6/100 
IF Sk=3 THEN W=2 
IF Sk=4 THEN B=.5 
V1=W*2340+K1%*B*#600 
2=V1/2 
IF VF>VZ2 THEN 810 
VF=2Z#VF 
IF VPXW#*300 THEN VP=W*300 
GOTO 850 
IF V1>=VP THEN VP=VP+V2: GOTO 830 
VP=V1+V2 
VF=FNR (VP) 
J=J-VP 
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B60 
870 
870 
900 
910 
920 
940 
950 
960 
970 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1090 
1100 
1110 


REN ass sans ann “=... STEUERBERECHNUNG 
ON SK GOTD 890,890, 940,890, 970,990 
REM aaa esta STEUERKLASSEN 1,2,4 
T=FNR(J) 
GOSUB 1130 
LS=S: GOTO 1090 
REM sn ee N EEE STEUERKLASSE 3 
T=FNR (J/2) 
GOSUB 1130 
LS=2#5: GOTO 1090 
REMIS SA RN RERENE .usasesunnenan. STEUERKLÄSSE 5,6 
T=FNR (J) 

T=T#5/4: GOSUB 1130 

535=2*5 

T=FNR (J) 

T=T#3/4: GOSUB 1130 

LS=53-2*5 

SL=INT (.22%*J) 

IF LS<SL THEN LS=SL 

REM. use einen MONATSSTEUER 
LS=INT(LS/1.2+.001)/10 

RETURN 
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1130 
1140 
1150 
1170 
1180 
1190 
1200 
1220 
1230 
1240 


1250 


1260 
1270 
1280 
1290 
1300 
1310 
1330 
1340 
1350 
1360 
1370 
1580 
1390 
1400 
1410 
1420 
1440 
1450 
1460 


REM.oeunu.0 .onsnnuenne «..„STEUERTARIF NACH PARAGRAPH 32A ESTG 


IF T<4212 THEN RETURN 
IF T>18000 THEN 1220 
V=.22x*T-926 

S=INT (VW) 

RETURN 

IF T>= 580000 THEN 1330 
U=T/10000 

uU=U-1.8 

v=3.05#U: V=FNT(V) 
V=(V-73.76)*U: V=FNT(V) 
V=(V+695)*U: V=FNT(V) 
V=(V+2200) U: V=FNT (VW) 
V=V+3034 

S=INT (V) 


RETURN 


IF T>=13000 THEN 1440 
U=T/10000 

U=U-6 

V=.09%*U: V=FNT(V) 
V=(V-5.45) #U: V=FNT(W) 
V=(V+88.13)%#U: V=FNT(V) 
v=(V+5040) xU: V=FNT(V) 
V=V+20018 

S=-INT(W 

RETURN 

v=.56*T-14837 

5=INT (V) 

RETURN 
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1480 
1490 
1500 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1620 
1630 
1640 
1650 
1660 
1670 
1690 
1700 
1710 

1720 
1730 
1740 
1760 
1770 
1780 
1790 
1800 
1810 
1830 
1840 


REM. ooenanunonoonnunnueunoneneneneuu nn nun nn nenn KIRCHENSTEUER 
KS=0: 5=L5 

IF Sk=1 OR SK>4 OR KI=0 THEN 1580 

BEN ana ar „nenn... .FREIBETRAEGE 
5=5-(KI-1)#75+10 

IF SK{>4 THEN S=5-(KI-1)*75+10 

IF KI<>1 THEN 1580 

5=-5-35 

IF SKS>4 THEN 5=5-35 

IF S<{O THEN 5=0 

KS=1NT (5*P1+.001) 7100 

RETURN 

REM. san nenne ensnnen nenne un nn. 0... RENTENVERSICHERUNG 
RV=0: S=BL 

IF S>Bi THEN 5=B1 

RV=INT (5*P2+. 5001) 7100 


RV=RV/2: REM. „sous sneun.n zunnnnnennnnnnnnn . ARBEITNEHMERANTEIL 
RETURN 


REM. onaonunuonsseunueunnnn nn “nun... ARBEITSLOSENVERSICHERUNG 
AV=0: S=BL 

IF 5>B1 THEN S=B1 

AV=INT (5*P3+. 5001) 7100 


AV=AV/2: REM. „uusonsussuunnousone “nenn. . ARBEITNEHMERANTEIL 
RETURN 


REM. .oooouanaunununu Dunn unnn nn nen un enen nn. KRANKENKASSE 
KK=0: S5=BL 

IF S>BZ THEN S=B2 

KK=INT (5%P4+. 5001) 7100 


KK=KK/22 REM. „„.oseunnuunnnnnn .uonnsen .... .ARBEITNEHMERANTEIL 
RETURN 


DATA 4700,8,18,4,11.8 


READY. 
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nn nn nenn. a 


| HONATSLOHNSTEVER-BERECHNUNG | 


MONATSLOHNSTEUER-BERECHNUNG 
BRUTTOLOHN? 2800 
STEUERKLASSE? 4 
ZAHL DER KINDER? 2 


PERSOENL.FREIBETRAG? 625 


LOHNSTEUER = 313 DM 
KIRCHENSTEUER = 19.84 DM 
KRANKENKASSE = 165.2 DM 
RENTENVERSICHERUNG = 252 DM 
ARBEITSLOSENVERSICH. = 56 DM 


NETTDLOHN = 1993.96 DM 


READY. 
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24. INTERNER ZINSFUSS BEI INVESTITIONEN 


Eine Methode zur Berechnung der Rentabilität einer Investition ist die Metho- 
de des internen Zinsfusses. 

Sind E1, E2,.. . , En die Investitionserträge, so wird der interne Zinsfuß da- 
durch bestimmt, daß der Barwert der Erträge gleich der Investitionshöhe K ist. 


E1 E2 En 
rd +....+ 
1+r  (1+r)2 (14r)n 


Da diese Beziehung eine nichtlineare Gleichung für den Zinsfuß r darstellt, 
muß eine Intervallschachtelung zur Berechnung durchgeführt werden. Ist der 
interne Zinsfuß kleiner als die zu erzielende Rendite, so ist die Investition un- 
rentabel. Mit dem internen ZinsfuRß können auch verschiedene zur Diskussion 
stehende Investitionen miteinander verglichen werden. 


Zum folgenden Programm 


Nach Eingabe der Investitionshöhe, der Nutzungsdauer und der jeweiligen 
Erträge, berechnet das Programm mit Hilfe einer Intervallschachtelung den 
internen Zinsfuß. 


Beispiel 


Durch den Kauf einer Maschine im Wert von 10.000 DM kann ein Fabrikant 
‚während der nächsten 5 Jahre die Erträge 


1000 DM, 2000 DM, 2500 DM, 3000 DM und 3500 DM 


erzielen. Der Schrottwert der Maschine ist 500 DM. Das Programm liefert 
den internen Zinsfuß 6,57 %. 


Literaturhinweis: [10] 
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100 


REM „ouuoonnsonunnnnnnnn.. INTERNER ZINSFUSS BEI INVESTITIONEN 


120 PRINT"M 3 INTERNER ZINSFUSS ne 

125. REN anne ... „EINGABE 
130 PRINT: INPUT" INVESTITIONSHOEHE";K 

140 PRINT: INPUT" ZEITRAUM IN JAHREN":N 

150 PRINT: INPUT“ RESTWERT"3R 

155 DIM E(N) 

160 FOR I=1 TON 

170 PRINT:PRINT" ERTRAG IM JAHR";I5: INPUT E(I) 

180 NEXTI 

190 E(N)=E(N)+R 

210 REMannennnanenuanenennnnnen nn nnnn nun nen INTERVALLSCHACHTELUNG 
220 P1=0:P2=1:P3=0 

230 P=(P1+P2)/2 

240 IF ABS(P-P3)<1E-5 THEN 340 

250 P3=P 

260 S=0 

270 FOR I=1 TO N 

280 S=S+E(I)/(P+1) TI 

290 NEXT I 

300 IF S=K THEN 340 

310 IF K>S THEN P2=P: GOTO 230 

320 Pi=P: GOTO 230 

340 PRINT" INTERNER ZINSFUSS ="3 INT(1E4#P+.5)/1003 "%" 

350 REM KREIEREN RR RR 7 SRÄFIK 
360 V=53248 

370 FOR Q=832 TO 894: READ Z: POKE 0,Z: NEXT O 

380 POKE 2040,13 

390 POKE V+39,4 

400 POKE V+21,1: POKE V+29,1: POKE V,255: POKE V+1,195 

410 END 

450 DATA 0,0,127,0,0,127,0,0,127,0,0,127,0,0,127,0,0,127,126,0 
460 DATA 127,255, 192,255, 255, 255, 254, 127, 255, 254,0, 127 

470 DATA 254, 63,255, 254, 127,255, 254, 63, 255, 254, 0,255 

480 DATA 254,63, 255,254, 63,255, 254,0, 127,255,31,255 

490 DATA 255,31, 255,255,0,240,63 

READY. 
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INTERNER ZINSFUSS 


INTERNER ZINSFUSS 


INVESTITIONSHOEHE? 10000 
ZEITRAUM IN JAHREN? 5 
RESTWERT? 500 

ERTRAG IM JAHR 1 7? 1000 
ERTRAG IM JAHR 2 ? 2000 
ERTRAG IM JAHR 5 ? 2500 
ERTRAG IM JAHR 4 ? 3000 


ERTRAG IM JAHR 5 ? 3500 


INTERNER ZINSFUSS = 6.57 % 


READY. 
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25. KAPITALWERTMETHODE BEI INVESTITIONEN 


Da die Methode des internen Zinsfusses ohne Rechner nicht durchführbar ist, 
verwendete man früher die Kapitalwertmethode, bei der mit geeigneten Tabel- 
len gearbeitet wird. 

Dabei berechnet man den Barwert der Investitionserträge für einen vorgegebe- 
nen Zinssatz (Kalkulationszinssatz) und vermindert ihn um die Investitions- 
höhe. Ist der so berechnete Kapitalwert positiv, so ist die Investition rentabel. 


Ein negativer Kapitalwert zeigt, daß der kalkulierte Zinsfuß nicht erreicht 
worden ist. 


Mittelstand - 
Säule der Wirtschaft 


Kleine undmittlere 7. v 


Unternehmen 
inder 
Bundesrepublik 
Deutschland... 
..bilden aus | | fi | der Lehrlinge 
„machen || | |derUmsätze 
erwirtschaften 


des 
Sozialprodukts 


der 
Investitionen 


... tätigen 
Zum folgenden Programm 


Nach Eingabe der Investitionshöhe, der Nutzungsdauer, der angestrebten Ren- 
dite und des Restwerts, berechnet das Programm den Kapitalwert der Investi- 
tion nach dem oben angegebenen Verfahren. 


Beispiel 


Durch eine Investition von 10.000 DM könnte ein Unternehmer in den folgen- 
den 5 Jahren folgende Erträge erzielen: 


1000 DM, 2000 DM, 2500 DM, 3000 DM und 3500 DM. 


Bei einer angestrebten Verzinsung von 10% ist der Kapitalwert der Investition 
—1027 DM; d.h. die Investition erbringt nicht die gewünschte Rendite. 


Literaturhinweis: [10] 
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100 REM. „onen nononennnnnnn . „KAPITALWERTMETHODE BEI INVESTITIONEN 
110 PRINT"!M 4 KAPITALWERTMETHODE m" 

120 REM. „none nenennnunne nennen susuune 
130 INPUT" INVESTITIONSHOEHE”;K 

140 INPUT" ZEITRAUM IN JAHREN"5N 

150 INPUT" GEWUENSCHTE RENDITE IN %";P 
160 INPUT" RESTWERT"5R 

1706 REM. „auenononnc nennnunenonnen .nununeunnununnen en.» BERECHNUNGEN 
180 Q=1+P/100 

170 FORI=1TON 

200 PRINT" ERTRAG IM JAHR"515:INPUT E 

210 S=S+E/QtI 

220 NEXTI 

230 5=5+R/QtTN-K 

250 PRINT"M EIKAPITALWERT DER INVESTITION"5S INT (100%5+.5) 7/1005 "DM" 
260 PRINTCHR$ (154): END 


READY. 


KAPITALWERTMETHODE 


KAPITALWERTMETHODE 


INVESTITIONSHOEHE? 10000 
ZEITRAUM IN JAHREN? 5 
GEWUENSCHTE RENDITE IN %? 10 
RESTWERT? 500 

ERTRAG IM JAHR 1 ? 1000 
ERTRAG IM JAHR 2 ? 2000 
ERTRAG IM JAHR 3 ? 2500 
ERTRAG IM JAHR 4 ? 3000 
ERTRAG IM JAHR 5 ? 3500 


KAPITALWERT DER INVESTITION-1027 DM 


READY. 
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26. ANNUITATENMETHODE BEI INVESTITIONEN 


Ebenfalls aus der Zeit des Handrechnens stammt die Annuitätenmethode. Aus 
Einfachheitsgründen geht sie von den durchschnittlichen Kosten und Erträgen 
aus, die durch die Investition anfallen. 

Die mittleren Kosten werden als Annuitätenzahlung (vgl. Programm 17) auf- 
gefaßt und können daher mit der Annuitätenformel berechnet werden. Über- 
steigen die so ermittelten durchschnittlichen Kosten die durchschnittlichen 
Einnahmen, so ist die Investition als unrentabel zu betrachten. Die Differenz 
der mittleren Einnahmen und Kosten stellt den durchschnittlichen Ertrag dar. 
Diese Differenz erlaubt auch wieder einen Vergleich zwischen mehreren zur 
Diskussion stehenden Investitionen. 


Zum folgenden Programm 


Nach Eingabe der Investitionshöhe, der Nutzungsdauer ‚dergewünschten Ren- 
dite, des Restwerts und der mittleren Kosten und Einnahmen pro Jahr, be- 
rechnet das Programm den durchschnittlichen Ertrag der Investition nach der 
Annuitätenformel. 


Beispiel 

Durch eine Investition in Höhe von 10.000 DM könnte ein Fabrikant 5 Jahre 
lang, bei durchschnittlich 1000 DM Kosten, durchschnittlich 3400 DM ein- 
nehmen. Die Rendite soll 10% betragen. 

Es ergeben sich mittlere Kosten in Höhe von 3506,08 DM. Der durchschnitt- 
liche Ertrag beträgt somit —106,08 DM. Die angestrebte Verzinsung wird also 
nicht erreicht. 


Literaturhinweis: [10] 
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100 
110 
120 
130 
140 
150 


REM. o.ooonuncan .uunnnnnn.. ANNUITAETENMETHODE BEI INVESTITIONEN 
PRINT" IA 3 ANNUITAETENMETHODE m" 
REM „ouununc Dounnonu nenn n nennen une nennen nn EINGABE 


PRINT: INPUT" INVESTITIONSHOEHE"5K 
PRINT: INPUT" ZEITRAUM IN JAHREN"SN 
PRINT: INPUT" GEWUENSCHTE RENDITE IN %"5P 


160 PRINT: INPUT" RESTWERT"5SR 

170 PRINT: INPUT" MITTLERE KOSTEN PRO JAHR”;C 

180 PRINT: INPUT" MITTLERE EINNAHMEN PRO JAHR"SE 

190 REM. „ouosaoononuounenunun neue anasu nn“ enennunnenn en» BERECHNUNG 
200 DEF FNR{X)I=INT (100#X+.5) /100 

210 Q=1+P/100:0N=BTN 

220 C=(K-R) #F#QON/ (QBN-1) /100+C 

228. REN aan na .mneonnsnnunnn .nununnun. . AUSGABE 
230 PRINT" AIR SDURCHSCHN. KOSTEN = Sa"; FNR(CO;"N = DM" 

240 PRINT"M BEDURCHSCHN. EINNAHMEN = #"5 FNR(E)S"I BE DM" 

250 PRINT"M BDURCHSCHN. ERTRAG = S"SFNR{E-CI;"N 8 DM" 

260 PRINTCHR$ (154) END 

READY. 
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ANNUITAETENMETHODE 


INVESTITIONSHODEHE? 10000 
ZEITRAUM IN JAHREN? 5 
GEWUENSCHTE RENDITE IN %? 10 
RESTWERT? 500 

MITTLERE KOSTEN PRO JAHR? 1000 


MITTLERE EINNAHMEN PRO JAHR? 3400 


DURCHSCHN. KOSTEN = 3506.08 DM 
DURCHSCHN. EINNAHMEN = 3400 DM 


DURCHSCHN. ERTRAG = -106.08 DM 


READY. 
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27. KAUF-LEASING-ENTSCHEIDUNG 


Die Kapitalwertmethode von Programm 25 kann auch zur Entscheidung zwi- 
schen Kauf oder Leasing eines Objekts herangezogen werden. 

Dazu wird der Barwert aller Beträge berechnet, die beim Kauf anfallen, wie 
Kreditkosten und Abschreibungen. Der Vergleich mit den jährlichen Leasing- 
kosten zeigt, ob das Leasingverfahren rentabel ist oder nicht. 

Wie bei den drei vorhergehenden Programmen sind hier noch steuerliche Ge- 
sichtspunkte, Investitionsbeihilfen usw. in Betracht zu ziehen. 


Güter 


> Sffentliche Güter 


Arbeitslohn 
Konsumausgaben 


Konsumgüter 
Arbeit 


[ZAHLENBILDER] nimar 


Ö: Erich Schmidt Verlag 200 210 
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Zum folgenden Programm 


Nach Eingabe der Investitionshöhe, des internen Zinsfusses, der Nutzungs- 
dauer, des Restwerts, des Steuersatzes für Abschreibungen, der jährlichen 
Kosten für Kredit bzw. Leasing, berechnet das Programm nach der angegebe- 
nen Methode den Barwert der Kauf- bzw. Leasingkosten. 

Dabei werden steuerliche Gesichtspunkte (außer den Abschreibungen beim 
Kauf), Abschreibungen beim Leasingverfahren u.ä. nicht berücksichtigt. 


Beispiel 

Ein Betrieb benötigt eine Maschine vom Anschaffungswert 20.000 DM; der 
Restwert nach 4 Jahren beträgt 8000 DM. Die jährlichen Kreditkosten be- 
laufen sich auf 3200 DM, die Leasingkosten auf 2600 DM. Die Maschine 
kann bei einem Steuersatz von 35% linear abgeschrieben werden. 

Das Programm zeigt, daß der Barwert der Kaufkosten um ca. 6000 DM nie- 
driger liegt als der der Leasingkosten. Das Leasingverfahren ist hier also nicht 
rentabel. 
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100 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
580 
390 
400 
410 
420 
450 


REM. ..oooasoonneennnnnnnnnnnn«KAUF- ODER LEASING-ENTSCHEIDUNG 
PRINT"N 2 KAUF/LEASING-ENTSCHE IDUNG "" 

REM RRRRRARRRHRRRRRHHRRRARHRRHRRHRRRRRRHR GRAFIK 1. TEIL 
PRINT" Melelateinieinieisieteieten 9 LEASING #";SPC(17)5"3 KAUF 8" 
PRINTSFC (95'343 ? B";SPC(21)5"4 7 En" 

FOR 0=832 T0894: READ Z: POKE Q,Z: NEXT Q 

FOKE 2040,13: POKE 53248+21,1 

FOKE 53248,165: POKE 53248+1,220 

2 EEE EC „nun... EINGABE 
INPUT" WERT DES OBJEKTES";W 

INPUT" INTERNER ZINS IN %"5;P 

INPUT" ANZAHL DER JAHRE"5J 

INPUT" RESTWERT DES OBJEKTES"5R 

INPUT" STEUER IN %"5S 

INPUT" JAEHRL.KREDITZINSEN"3KK 

INPUT" JAEHRL.LEASINGKOSTEN"SLK 

REM: sus nr na au aa a BERECHNUNG 
DEF FNR(XI=INT (100%#X+.5)7/100 

Q=1+P/100:5=5/100 

K=0:1=6 

FORB=1T0J 

PRINT" ABSCHREIBUNG IM JAHR"3B5 : INPUTA 

IF B=5 THEN POKE 535248+21,0: PRINT" 

WO=ABS (W-W#Q) 

A= (KK- (A+WO) #5) /(QTB) 

W=W-KK+WO 

x=K+A 

L=L+(LK-(LK#5))/(Q@tB) 

NEXTB 

<=K-R/ (OD) 
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720 
730 


REM. ououusuuuuuuunnn ren .annunennune ...... AUSGABE 
PRINT" TIleImfetateinteisteinteteine © LEASING E"5SFC(17)5"3 KAUF ®@" 


PRINTSPCE(595"3 7? M"SSPC(Z1)5"3 7 8" 

POKE 53248+21,1 

PRINT" Tal BARWERT DER KAUFKDSTEN =":FNR(K) 5 "DM" 
PRINT" BARWERT DER LEASINGKOSTEN =":FNR(L) 5; "DM" 
IFL{KTHENSZ2O 

FRINT"E]) GEWINN BEIM KAUF: "5FNRÜL-K)5"DM": GOTO 550 
PRINT"M} GEWINN BEIM LEASING: "3FNR(K-L) 5 "DM" 

REM RRRRRBEHRBHBRRHBHBRBBHHRRHHRRBHHHHRRRHHEHER GRAFIK 2. TEIL 
12=255 

IF LK THEN POKE 2040,13: 12=63 

FOR X=165 TO 12 STEPSGN{(L-K}/2) 

POKE 53248,X: POKE 53248+1, 190 

NEXT X 

PRINT" IelstatetalaisTelsinteleintelniet" s SPC (5) 5 

IF K<L THEN FRINT SPCE(24)5"3 1 m": GOTO 820 
PRINT"Z ' m" 

PRINT: PRINT: PRINT 

END 


DATA 0,16,0,0,56,0,0,124,0,0,254,0,1,255,0,3, 255,128, 7,255 
DATA 192, 15,255, 224,31,255, 240, 63,255, 248, 127,255, 252, 0,252, 0 
DATA 0,252,0,0,252,0,0,252,0,0,252,0,0,252,0,0,252,0,0,252 


DATA 0,0,252,0,0,252,0 


READY. 
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me bt ts be rn m in Gm a nn u Hm 


| Kaur-LEnsmme-enrscrernung | 
L 


rt hu a a Da Da a EEE 


KAUF/LEASING-ENTSCHEIDUNG 


WERT DES OBJEKTES? 20000 
INTERNER ZINS IN 47? 10 

ANZAHL DER JAHRE? 4 

RESTWERT DES OBJEKTES? 8000 
STEUER IN %? 35 
JAEHRL.KREDITZINSEN? 3200 
JAEHRL.LEASINGKOSTEN? 2600 
ABSCHREIBUNG IM JAHR 1 7? 3000 
ABSCHREIBUNG IM JAHR 2 ? 3000 
ABSCHREIBUNG IM JAHR 3 ? 3000 
ABSCHREIBUNG IM JAHR 4 7? 3000 


BARWERT DER KAUFKOSTEN =-671.87 DM 
BARWERT DER LEASINGKOSTEN = 5357.07 DM 
GEWINN BEIM KAUF: 6028.95 DM 


READY. 
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28. ENTSCHEIDUNG BEI MEHREREN ZIELEN 


Das Vorgehen wird an einem Beispiel (entnommen aus [4]) gezeigt. 
Von einer Unternehmensleitung werden folgende F:rmenziele Z; und ihre Be- 
wertung g; formuliert: 


Zur Erreichung dieser Ziele werden drei Strategien diskutiert: 


1: Erweiterung der Produktionspalette und Erschließung 
neuer Märkte 


2: Beibehaltung der Firmengröße und technische Verbesserung 
der bisher erzeugten Produkte 


3: Beibehaltung der Firmengröße und Ersetzung von weniger 


gewinnbringenden Produkten durch rentablere 


Das Erreichen der Ziele Z; durch die Strategien j=1,2,3 wird durch (sub- 
jektive) Wahrscheinlichkeiten pj; mit O<pjj < 1 gekennzeichnet: 


O heißt, daß die Strategie das Ziel höchst unwahrscheinlich fördert; 0,5 be- 
deutet: die Strategie spricht weder für noch gegen das Ziel; 1 zeigt an, daß die 
Strategie das Ziel höchstwahrscheinlich fördert. Entsprechend sind die mittle- 
ren Werte zu verstehen. 
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Folgende Wahrscheinlichkeitstabelle wird gewählt: 


02 08 0,8 0,3 0,6 0,8 


09 02 0,3 0,8 04 0,3 
07 04 03 0,7 0,8 0,5 


Multipliziert man die Zeilenelemente der Wahrscheinlichkeitstabelle mit den 
entsprechenden Bewertungseinheiten der Ziele, so erhält man ein Maß für den 
Nutzen der einzelnen Strategien. Für Strategie 1 ergibt sich die Summe 


0,4-0,25+0 ‚2:0 ,3+0,8-0,1+0,8-0,15+0 3-0 ,05+0 ,6-0,05+0,8-0,1 = 0,485. 


Entsprechend folgt für Strategie 2 0,650 und für 3 0,595. Strategie 2 hat die 
größte Nutzensumme und ist daher im Sinne der von der Firma angestrebten 
Ziele optimal. 


Zum folgenden Programm 


Die Anzahl der Ziele und Strategien, die Wahrscheinlichkeitstabelle und die 
Zielbewertungseinheiten werden in Form von DATA-Werten eingelesen. Das 
Programm berechnet daraus die Nutzensummen und gibt die optimale Strate- 
gie aus. 

Im Programm wird das oben behandelte Beispiel berechnet (vgl. Programm- 
ausdruck). 
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REM aaaeeunan BEER TEN ENTSCHEIDUNG UNTER MEHREREN ZIELEN 
BEN ee tee EINLESEN DER DATEN 
READ Nz REMennnnnneeannnn nun nn nn BRENNEN ANZAHL DER ZIELE 
READ M= REM» m nenneenene nun nn nn n nenn ANZAHL DER STRATEGIEN 
DIM D(M,N) 

2 RESET TETARENE AUSGABE ENTSCHEIDUNGSMATRIX 


PRINT"/TM 3 ENTSCHEIDUNG UNTER MEHREREN ZIELEN mM" 
PRINT" ENTSCHEIDUNGSMATRIXE"CHR$ (154) 
FOR I=1 TO M 

FOR k=1 TO N 

READ E{I,K): FRINT E(I,K)5 

NEXT K: PRINT 

NEXT I 

PRINT" Fr BEWERTUNG DER ZIELEM"CHR$ (154) 
FOR I=1 TON 

READ B(I): PRINT B(D; 

NEXT I 

FRINT: PRINT: PRINT 

REM. @ueuunesuuennnnnnnnnnnnennn » BERECHNUNG DER STRATEGIE-WERTE 
MX=0 

FOR I=1 TO M 

5=0 

FOR k=1 TO N 

5=S+E(I,K)#B(K) 

NEXT K 

PRINT" WERT DER STRATEGIE"5I1":"55 

IF S>MX THEN MX=S: J=1I 

NEXT I 


REM, -.oanousunsnnannne nun. uuunsannenuennnnne» OPTIMALE ENTSCH. 
PRINTCHR$ (150) "IM OFTIMALE ENTSCHEIDUNG: STRATEGIE"5J 
PRINTCHR$ (154) 

END 
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BIO REM. Serie een DATEN 
420 DATA 7 

430 DATA 3 

440 DATA .4,.2,.8,.8,.3,.6,.8 

450 DATA .„9,.9,.2,.3,.8,.4,.3 

460 DATA .7,.7,.4,.3,.7,.8,.5 

470 DATA .25,.3,.1,.15,.05,.05,.1 

READY. 


m he Sen ana atmen ne and am bare abe mn Day pen me een ats ent > sm een tn 
- er 


ENTSCHEIDUNG UNTER 


MEHREREN ZIELEN 


ENTSCHE IDUNGSMATRIX 

.A.2.8 .8 .3 ..5 .8 
II 2 ch sd 
7.7.4 .3 ..7..8B .S 
BEWERTUNG DER ZIELE 

.25 .2 .1 ..15 .05 .05 .1 
WERT DER STRATEGIE 1 : „485 
WERT DER STRATEGIE 2 : „65 
WERT DER STRATEGIE 5 : „595 
OPTIMALE ENTSCHEIDUNG: STRATEGIE 2 
READY. 
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29. ENTSCHEIDUNG BEI GEGEBENEN WAHRSCHEINLICH- 
KEITEN 


Während bei Programm 28 Entscheidungen unter frei wählbaren Zielen zu fäl- 
len waren, sind nun die äußeren Umstände, z.B. die wirtschaftliche Entwick- 
lung, vorgegeben. In der Entscheidungstheorie spricht man von den Gegeben- 
heiten als dem Zustand der Welt, die Entscheidung ist ein Spiel gegen die Na- 
tur. 

Auf die Zustände Zi, die mit den (subjektiven) Wahrscheinlichkeiten Pj ein- 
treten, kann durch Wahl einer Strategie i (i=1,2,. .) reagiert werden. 


Die Ergebnisse Ejj, die man bei der Wahl der Strategie i beim Zustand der 
Welt Z; erhält, werden in einer Tabelle (Ergebnismatrix genannt) dargestellt: 


PS Eu 


Die Elemente der Tabelle können z.B. Gewinnerwartungen in DM sein. 


Die Gewinnerwartung eines Unternehmens sei, abhängig vom Konjunktur- 
verlauf, durch folgende Ergebnismatrix gegeben: 


Zeilen- Zeilen- 
minimum maximum 


BER 5.000 3.000 3.000 10.000 
22 


Aufschwung Stagnation Rezession 


2 5.000 5.000 5.000 5.000 
5.000 —1.000 —1.000 20.000 


a 10.000 3.000 4.000 3.000 10.000 


Es wird geschätzt, daß alle Zustände mit gleicher Wahrscheinlichkeit eintreten: 


_1 _ 1 41 
Pl=7, P2"3 und P3= 7. 
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In der Entscheidungstheorie (vgl. |11|) werden folgende Kriterien zur Wahl 
der optimalen Strategie genannt: 


a. Das Erwartungswert-Kriterium 
Es wird diejenige Strategie gewählt, die den größten Erwartungswert 


Ei = Eiipı + Ei2p2 +... + EimPm 


erzielt. Diese Vorgehensweise entspricht der von Programm 28. 
Beim angegebenen Beispiel gilt: 


Ei 10.000 DM - 2 + 5000 DM - 2 + 3000 DM - 4 = 6000 DM 
E2 = 5000 DM 
E3 = 8000 DM 
EA = 5667 DM. 


Nach dem Erwartungswert-Kriterium ist 3 die optimale Strategie. Eine Ent- 
scheidung nach diesem Kriterium ist risikoneutral. 


b. Das Minimax-Kriterium 

Das Minimax-Kriterium ist extrem pessimistisch; es wählt nämlich diejenige 
Strategie aus, deren ungünstigstes Ergebnis noch möglichst günstig ist. Dazu 
sucht man in der Ergebnismatrix das Maximum aller Zeilenminima; hier 
5000 DM. 

Im Sinne des Minimax-Kriteriums ist somit Strategie 2 optimal. 


c. Das Maximax-Kriterium 

Gegenüber dem Minimax-Kriterium ist das Maximax-Kriterium äußerst opti- 
mistisch; es wählt nämlich diejenige Strategie aus, die den überhaupt größten 
Gewinn verspricht. In der Entscheidungsmatrix wird dazu das Maximum aller 
Zeilenmaxima ausgesucht; hier 20.000 DM. 

Im Sinne des Maximax-Kriteriums ist also Strategie 2 optimal. 


d. Das Hurwicz-Kriterium 

Einen Ausgleich zwischen dem pessimistischen Standpunkt des Minimax-Kri- 
teriums und dem optimistischen Standpunkt des Maximax-Kriteriums schafft 
das Hurwicz-Kriterium. Dabei werden für alle Strategien die gewichteten Sum- 
men 


a& » Zeilenmaximum + (1 —«) - Zeilenminimum 


berechnet und diejenige Strategie ausgewählt, deren Summe am größten ist. 
Die Zahl & mit O<a<1 heißt Optimismusindex. 
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Für & = 0,75 ergibt sich bei 
Strategie 1: 0,75 - 10.000 DM + 0,25 - 3000 DM = 8250 DM 
2: 0,75 - 5000 DM + 0,25 - 5000 DM = 5000 DM 
3: 0,75 - 20.000 DM + 0,25 - (-1000)DM = 14.750 DM 
4: 0,75 - 10.000 DM + 0,25 - 3000 DM = 8250 DM. 
Im Sinne des Hurwicz-Kriteriums ist also Strategie 3 optimal für & = 75%. 


Zum folgenden Programm 


Die Anzahl der Zustände, der Strategien, die Ergebnismatrix und die Wahr- 
scheinlichkeiten werden in Form von DATA-Werten eingelesen, ebenso der 
Optimismusindex. 

Das Programm druckt dann für jedes der beschriebenen Kriterien die optimale 
Strategie aus. 

Im Programm wird das angegebene Beispiel behandelt. 
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REM. ooasoesuuna« «... „ENTSCHEIDUNG BEI GEG. WAHRSCHEINLICHKEITEN 
REM...... nee Bann nnuuunnennnennnnn .„„EINLESEN DER DATEN 
READ M: REM. „„oounnunnunnnnnne nun une .....ANZAHL DER ZUSTAENDE 


READ N: REM... „on... un... EEE „ANZAHL DER STRATEGIEN 
FOR I=1 TON 


FOR J=1 TO M 

READ A(I,J) 

NEXT J 

NEXT I 

g=0 

FOR I=1 TO M 

READ P(I) 

S=5+P (1) 

NEXT I 

IF ABS(S-1) >1E-6 THEN PRINT"WAHRSCHEINLICHKEIT £>1": END 


REM. Ss aeeren BESTIMMUNG DER ZEILENMINIMA UND MAXIMA 
FOR I=1 TON 


MI=A(1,1)2 MA=A(I,D) 


D FOR J=2 TO M 


IF A(I,J)>MA THEN MA=A(I,J) 

IF A(I,D<MI THEN MI=A(1,J) 

NEXT J 

MICI)=MI 

MA(T)=MA 

NEXT I 

REM ee ne ERWARTUNGSWERTKRITERIUM 
FOR I=1 TON 

g=0 
FOR J=1 TO M 
S=S+A(I,D&#P(J) 
NEXT J 


D E{D=S 


NEXT I 
E=0: K=0: PRINT"T': POKE 53280,0: POKE 53281,11 
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470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
B10 
815 
820 


PRINT" M&ERWARTUNGSWERTKRITERIUM"CHR$ (154) 
PRINT" STRATEGIE GEWINNERWARTUNG" 

FOR 1=1 TON 

PRINTI, INT(100#*E(D+.59 /100 

IF ECD>E THEN E=sE(TI): K=lI 

NEXT I 

PRINT"MDPTIMALE STRATEGIE"5K; 

PRINTCHR$ (154) 


E=MA(1): K=0 

FOR I=2 TON 

IF MAUTDI<E THEN E=MA(TI: Kl 
NEXT I 

PRINT""M MINIMAX="5E 
PRINT"mDPTIMALE STRATEGIE"5SK5 
PRINTCHR$ (154) 


MINIMAX-KRITERIUM 


REM. .oounusenunnrunno ns nenne nenn nun nun nun nn MAXIMAX-KRITERIUM 


E=MA(T) 

FOR I=2 TON 

IF MACD>E THEN E=MA(TI: K=1 
NEXT I 

PRINT" MAXIMAX="; 
PRINT"MOPTIMALE STRATEGIE"SK5 
PRINTCHR$ (154) 


REM. oo sun onuunnsononsunune nenne „nunnuunnnn. . HURWITZKRITERIUM 


READ A 

PRINT" MCHURWITZKRITERIUM: OPTIMISMUSINDEX="5 
PRINTCHR$ (154)" STRATEGIE GEWINNERWARTUNG" 
E=0: K=0 

FORI=1TON 

E{I)=AxMA(I)+(1-A)&MI(T) 

PRINTI,E(I) 

IF E(D>E THEN E=E(T): K=I 

NEXT I 

PRINT"MDPTIMALE STRATEGIE" :K3 

PRINTCHR$ (154) 

END 
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840 DATA 3,4 

850 DATA 10000, 5000, 3000 
860 DATA 5000, 5000, 5000 
870 DATA 20000, 5000, -1000 
880 DATA 10000, 3000, 4000 


900 DATA „3IIITIIIII, IISTZTIITS,. SEIFZIIZTZT 
910 DATA „75 


READY. 


ENTSCHEIDUNG BEI GEGEB. WAHRSCHEINLICHKEITEN 


ERWARTUNGSWERTKRITERIUM 
STRATEGIE GEWINNERWARTUNG 
1 6000 
2 3000 
Ri 8000 
4 3666.67 

OPTIMALE STRATEGIE 3 


MINIMAX= 5000 
OPTIMALE STRATEGIE 2 


MAXIMAX= 20000 
OFTIMALE STRATEGIE 5 


HURWITZKRITERIUM: OPTIMISMUSINDEX= .75 
STRATEGIE GEWINNERWARTUNG 


1 8250 

2 3000 

S 14750 

4 8250 
OPTIMALE STRATEGIE 3 


READY. 
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30. LAGERHALTUNG OHNE FEHLMENGEN 


Ist der Bedarf eines Lagers bekannt und zeitlich konstant und kann es jeder- 
zeit ergänzt werden, so läßt sich eine optimale Lagerhaltung angeben. Da der 
Bedarf als bekannt vorausgesetzt wird, spricht man hier von einem determi- 
nistischen Lagerhaltungsmodell, im Gegensatz zu einem stochastischen Modell, 
bei dem der Bedarf zufälligen Schwankungen unterliegt. 


Ist T der optimale Bestellrhythmus und B der Bedarf je Zeiteinheit, so gilt 
für die optimale Bestellmenge O 


QO = BT. 


Der Lagerbestand nimmt vom Stand Q gleichförmig ab und wird beim Stand 
Null erneut aufgefüllt: 


Bestand 


Zeit 


T 21 


Sind H die Lagerhaltungskosten je Stück und Zeiteinheit, so stellt 
HOT/2 


die variablen Lagerhaltungskosten dar. Zusammen mit den Fixkosten K, erge- 
ben sich die gesamten Lagerkosten aus 


K + HOT/2. 
Bezieht man die Gesamtkosten auf die Zeiteinheit, so erhält man 
KB/Q + HO/2. 


Diese Funktion hat ein Minimum für die optimale Bestellmenge 


BETT: 
Q=vV% 
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Diese Formel heißt Wilsonsche Losgrößenformel oder Andlersche Lagerwurzel. 
Daraus berechnen sich der optimale Bestellrhythmus zu 


und die minimalen Lagerhaltungskosten zu 
M = Y2KHB 


Zum folgenden Programm 


Nach Eingabe der Fixkosten, des Bedarfs und der Lagerkosten pro Stück und 
Zeiteinheit berechnet das Programm nach den angegebenen Formeln die opti- 
male Lagerhaltung. 


Beispiel 


Ein Lager benötigt wöchentlich 300 Stück einer Ware. Die Fixkosten einer 
Bestellung sind 1000 DM und die Lagerkosten 1,90 DM je Stück und Woche. 


Das Programm berechnet hier den optimalen Bestellrhythmus zu 1,87 Wochen 
und die optimale Bestellmenge zu 562 Stück. Die minimalen Kosten betragen 
damit 1067,71 DM. 


Literaturhinweis: [2], [4], [16] 


ze EZNN 
on — : N k 


"Kaufmann mit seinen Waren im Hauptbuch blätternd’' 
Holzschnitt von Hans Weiditz, Augsburg 1539 
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100 REM. „„.oaosouonunnnno Seren LAGERHALTUNG OHNE FEHLMENGEN 
110 PRINT" 3 LAGERHALTUNG OHNE FEHLMENGEN m" 

120 REM. ...... een ee rennen EINGABE 
130 INPUT" FIXKOSTEN"SK 

140 FRINT: INPUT" BEDARF PRO ZEITEINHEIT"; 

145 PRINT 

150 FRINT" LAGERKOSTEN": INPUT" (JE STUECK U. ZEITEINHEIT)"SH 

160 REM. ss. ne .uonusunnenns ae BERECHNUNGEN 
170 DEF FNR{X)=INT (100%%X+.5) 7100 

170 M=SOR (2#Kx*B+#H) 

200 T=SOR (2*K/B/H) 

210 Q=SOR (2*K#B/H) 

220 REM. „ununonunuoasonnunuunn ne Dnuuneennnnusnesu nenn nnnn AUSGABE 
230 PRINT:PRINT"% MINIMALKOSTEN =": FNR{M) 5; "DM" 

240 PRINT"M OPT.BESTELLRHYTHMUS ="3FNR(T)I 5 "ZEITEINH." 

250 PRINT"M DPT.BESTELLMENGE ="; INT (0+.59) 3; "STUECK" 

260 PRINT"E SERVICEGRAD = 100 %" 

270 PRINTCHR$ (154) 

280 PRINT: INPUT"WEITER J/N"5A$ 

290 IF A$="J" THEN GOTD 110 

300 END 

READY. 
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| LAGERHALTUNG OHNE FEHLMENGEN | 


LAGERHALTUNG OHNE FEHLMENGEN 
FIXKOSTEN? 1000 
BEDARF PRO ZEITEINHEIT? 300 


LAGERKOSTEN 
(JE STUECK U. ZEITEINHEIT)I? 1.9 


MINIMALKOSTEN 


1067.71 DM 


UOPT.BESTELLRHYTHMUS = 1.87 ZEITEINH. 


DPT.BESTELLMENGE 362 STUECK 


SERVICEGRAD 


100 % 


WEITER J/N? N 


READY. 
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31. LAGERHALTUNG MIT FEHLMENGEN 


Die Lagerhaltung ohne Fehlmengen (Programm 30) ist aufwendig, da stets die 
gesamte Nachfrage befriedigt werden soll. Läßt man vorübergehend auch 
Fehlmengen zu, erreicht man u.U. eine wesentliche Kostenreduzierung. 


Ist die maximale Bestellmenge S, so ändert sich der Warenbestand wie folgt 


Bestand 


Sind G die Fehlmengenkosten je Stück und Zeiteinheit, so sind die gesamt- 
ten Fehlmengenkosten 


G(Q-5S) (T-t)/2 
wie man der Skizze entnimmt. Die Gesamtkosten addieren sich damit zu 
K + HS2/(2B) + G(BT-S) (T-S/B)/2 
Auf die Zeiteinheit bezogen, sind die Gesamtkosten 


K BGT (G+H)S2 
I ne ES 
1 2 3 2BT 


Mit Hilfe der Differentialrechnung läßt sich zeigen, daß diese Funktion für die 
optimale Bestellmenge 


Q=-R Tg 


ein Minimum hat. Entsprechend ergeben sich der optimale Bestellrhythmus 


T-RVE 
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die minimalen Lagerkosten 


M = n V/2KHB 
und der befriedigte Bedarf 
_ 1 2KB 
R H 
Dabei wurde zur Abkürzung 
+ 
H+G -R 
G 
gesetzt. Das Verhältnis 
Sa ch 
O R2 


nennt man den Servicegrad. 


Zum folgenden Programm 


Nach Eingabe der Fixkosten, Lagerkosten und Fehlmengenkosten berechnet 
das Programm nach den angegebenen Formeln die optimale Lagerhaltung. 


Beispiel 


Ein Lager benötigt wöchentlich 300 Stück einer Ware. Die Fixkosten einer 
Bestellung sind 1000 DM, die Lagerkosten 1,90 DM und die Fehlmengen- 


kosten 2 DM je Stück und Woche. 


Der optimale Bestellrhythmus ergibt sich dann zu 2,62 Wochen, die optimale 
Bestellmenge liegt bei 785 Stück. Die Minimalkosten betragen 764,60 DM 
und sind damit gegenüber dem Beispiel von Programm 30 deutlich reduziert. 
Dagegen kann nur 51 % des Bedarfs gedeckt werden. 


Literaturhinweis: [2], [4], [16] 
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100 
110 
120 
130 
140 
150 
155 


REM. ozasun. ae ..nnno u. .... LAGERHALTUNG MIT FEHLMENGEN 
PRINT"IN 3 LAGERHALTUNG MIT FEHLMENGEN m" 
REM ass nun muneneruenn EINGABE 


INPUT" FIXKOSTEN"5;K 

PRINT: INPUT" BEDARF PRO ZEITEINHEIT";B 
PRINT:PRINT" LAGERKOSTEN" 

INPUT" (JE STUECK U. ZEITEINHEIT)I"SH 


160 PRINT:PRINT" FEHLKOSTEN" 

165 INPUT" (JE STUECK U.ZEITEINHEIT)"56 

170 REM ASS Sata were BERECHNUNGEN 
180 DEF FNR(X)=INT(100%X+.5)/100 

200 R=SOR ( (H+G) /6G) 

210 M=SQR (2%*K#B*H) /R 

220 T=SQR (2#K/B/H) *R 

230 S=SQR (2*K#B/H) /R 

240 Q=SOR (2#K*B/H) #R 

ZOU REM. ae AUSGABE 
255 PRINT"/T': POKE 53281,1: POKE 53280, 6 

260 PRINT"= MINIMALKOSTEN ="3FNR(M) 5 "DM" 

270 PRINT"M OPT.BESTELLRHYTHMUS ="3FNR(T) 5 "ZEITEINH." 

280 PRINT"M OPT. BESTELLMENGE ="; INT (+. 5) 5 "STUECK" 

290 PRINT"! BEFRIEDIGTER BEDARF ="5 INT (S+.59 5 "STUECK" 

300 PRINT" SERVICEGRAD ="; INT(100#5/0+.995"%" 

SIOCREN sen 2: een BERNER WEITERE BERECHNUNGEN? 
320 PRINT:PRINT: PRINT: INPUT"WEITERE BERECHNUNGEN J/N"5B$ 

330 POKESS280,14: POKE 53281,6: PRINT"T" 

34060 IF B$="J" THEN GOTO 130 

350 END 

READY. 
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LAGERHALTUNG MIT FEHLMENGEN 


LAGERHALTUNG MIT FEHLMENGEN 
FIXKOSTEN? 1000 


BEDARF PRO ZEITEINHEIT? 300 


LAGERKOSTEN 

(JE STUECK U. ZEITEINHEIT)? 1.9 

FEHLKOSTEN 

(JE STUECK U.ZEITEINHEITI? 2 

MINIMALKOSTEN = 764.6 DM 

OPT.BESTELLRHYTHMUS = 2.62 ZEITEINH. 

OPT.BESTELLMENGE = 785 STUECK 

BEFRIEDIGTER BEDARF = 402 STUECK 
SERVICEGRAD = 51 % 


WEITERE BERECHNUNGEN J/N? N 


READY. 
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32. WARTESCHLANGE BEI EINMANNBEDIENUNG 


Das Nachvollziehen eines Wahrscheinlichkeitsexperiments mit Hilfe von Zu- 
fallszahlen nennt man Moente-Carlo-Simulation. Im Band 1 der vorliegenden 
Programmsammlung finden sich fünf Beispiele zur Monte-Carlo-Methode, u.a. 
wurden Münzwürfe und der radioaktive Zerfall simuliert. 

Auch bei wirtschaftlichen Problemstellungen finden Monte-Carlo-Methoden 
Anwendung, z.B. bei der Simulation von Warteschlangen, stochastischen 
Lagerhaltungsmodellen und Maschinenausfällen (siehe z.B. [8], [15]). 


Zum folgenden Programm 


Das Programm simuliert die Ankunfts- und Bedienungszeit eines Kunden mit- 
tels exponentialverteilter Zufallszahlen. Ein eingetroffener Kunde, der nicht 
bedient werden kann, wird in die Warteschlange eingereiht. Die Länge der 
Warteschlange wird gespeichert, ebenso die Zeit, die ein Kunde warten muß, 
bis er bedient wird. Daraus wird die mittlere Länge der Warteschlange und die 
mittlere Wartezeit eines Kunden bestimmt. Entsprechend läßt sich die Aus- 
lastung der Bedienung ermitteln. 


Beispiel 

Erscheint im Durchschnitt alle 5 Miruten ein Kunde und wird er durch- 
schnittlich vier Minuten lang bedient, so ergab sich bei einem Programmlauf 
die mittlere Wartezeit von 9,08 Minuten bei durchschnittlich 1,9 wartenden 
Kunden. Die Auslastung der Bedienung beträgt 84%. Von den 202 eingetrof- 
fenen Kunden wurden 194 bedient. 

Zu beachten ist, daß die Ergebnisse zufällig sind und sich bei einem weiteren 
Programmlauf die erhaltenen Werte etwas ändern können. 


153 


100 
110 
120 
130 
140 
150 
160 
170 
175 
180 
185 
190 
195 
196 
200 
205 
210 
220 
230 
240 
250 
260 
270 
280 
270 
300 
310 
320 
330 
340 
350 
370 
380 
390 


REM. „.ouonasnunas nn... ...WARTESCHLANGE BEI EINMANNBEDIENUNG 
PRINT" 3 E INMANN-BEDIENUNG m" 

REN. as 2se2 uneunnunennunnnnennennnen en nenn. MODULO-FUNKTION 
DEF FNM{X)=X-INT((X-12/WM xM 

REM. „uononunusuns „nnnunnnnnnn.EXPONENTIALVERT. ZUFALLSZAHLEN 


DEF FNZ(XI=INT(-X*LOG(RND (1))+.5) 

DEF ’FNR(X)=INT(100%X+.5) 

A=0: E=0: B=0: 5=0: 51=0: W1=0 

REN ESS een Dunonennnnessennunn ....MENUE 
PRINT" IM AUSDRUCK DER" 

PRINT" SIMULATIONSERGEBNISSE" 


PRINT" AUF DEM BILDSCHIRM - TASTE F1" 
PRINT"M OPTISCHE VERANSCHAUL ICHUNG" 

PRINT" DER SIMULATION - TASTE FS3" 
GET A$ 


IF (A$=""DOR(A$<>CHR$ (133) ANDA$<>CHR$ (134))) THEN GOTOD 200 
REM. .oosenunuouenuenunuus neo nn en en nn unnen en nn nn nn nu «EINGÄBE 
PRINT" IM": INPUT" WIEVIELE SIMULATIONEN"SN 

PRINT: INPUT" MITTLERE ANKUNFTSZEIT"5STI 

PRINT: INPUT" MITTLERE BEDIENUNGSDAUER"; J 

PRINT: INPUT" MAX.LAENGE DER WARTESCHLANGE"5M 


DIM C(M,2) 

IF A$=CHR$ (134) THEN GOTD 680 

REM Seesen ER I OTREENERSERSN BERECHNUNGEN 
FOR T=1 TON 

RE ee Es ee een ANKUNFT 
IF A>T THEN 420 

E=E+1 


IF E-B>M THEN PRINT"WARTESCHLANGE ZU LANG": END 

C{FNM(E) ,1)=T 

C{FNM(E) ,„Z)I=FNZ (J) 

REM. „seuoeononennusuuonnnnn ones ennnnecnne ....SETZEN DER ZEIT 
A=T+FNZ (ID) 

GOTO3S10 
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410 
420 
430 
440 
450 
460 
470 
490 
300 
310 
320 
3350 
340 
390 
360 
370 
380 
3970 
600 
610 
620 
680 
6970 
700 
710 
715 
720 
725 
730 
740 
750 
760 
770 
780 
79 


REM ananenun este reset BEDIENEN 
IF S>T OR B=E THEN 60T0500 

B=B+1 

S=C (FNM(B) ,2)+T 

W=T-C(FNM(B) ,1) 

Wi=WI+W 

GOTO 420 

REN. BIEGEN EI REEL EEE REREERRTEURERER “una. ZAEHLUNG 


Li1=L1+L 

IF S>T THEN S1=S1+1 

NEXT T 

REM. 2ousunn. Dann oasnsunsn nun nn anne ann .uenennnnnenn. « AUSGABE 
PRINT" MAUSLASTUNGSGRAD=" 5 FNR (51/N) 5 "%” 

PRINT" MITTLERE LAENGE D. WARTESCHLANGE="5 INT (10%L1/N+.5) 7/10 
PRINT"EMITTLERE KUNDENWARTEZEIT="5FNR(W1/B) /100 

PRINT" ANZAHL DER EINGETROFF.KUNDEN="53E 

PRINT"MIZAHL DER BEDIENTEN KUNDEN="5;B 

PRINT: INPUT"GRAFISCHE DARSTELLUNG J/N"56D$ 

IF G6D$="J* THEN G0TD 690 

PRINT"7": END 
REM ER RRR GRAFIK 


PRINT" IN DARSTELLUNG EINER SIMULATIDN® 
PRINT" iMeleIf! EINGETROFFENE BEDIENTE" 
PRINT" SIrlelninie! KUNDEN KUNDEN" 
DEF FNR (X) =X+54272 

FOR K=0 TO 2 


0=17335+K#40 

POKE Q,66: POKE FNR(Q),8 

NEXT K 

POKE 1775,160: POKE FNR(1775),7 
A=0: E=0: B=0: S=0: 9=1771 

FOR T=1 TON 

0=1771: IF A>T THEN GOTO 940 
E=E+1 
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800 PRINT" SImleInniefele] S;E"N m" 

810 IF E-B>M THEN PRINT" MIRIKWARTESCHLANGE ZU LANG": END 
820 C(FNM(E),1)=T 

830 C(FNM(E)„ZI=FNZ(J) 

840 A=T+FNZ (TI) 

850 FOR K=1 TD E-B 

855 8=1772-K 

BA0 IF (XXAND1)=O THEN GOTO 890 

870 IF (INT(0/2)=0/2) THEN FF=1: GOTOYIO 
880 IF (INT(8Q/2)<>@/2) THEN FF=10: GOTO91O 
8970 IF (INT(0/2)=9/2) THEN FF=10 

900 IF (INT(Q/Z2)<>0/2) THEN FF=1 

910 IF 0<1744 THEN Q=9-40 

920 POKE 0,81: FOKE FNR(O),FF 

930 NEXT K 

940 IF (S>TIORtB=E)) THEN GOTO 1080 

950 B=B+1 

960 FRINT " SIeInieleieteie" TAB (27): "a" BB" we" 

970 S=C(FNM(B),Z)+T 

980 W=T-C(FNM(B),1) 

990 Wi=WI+W 

1000 FOR K=1 TO E-B 

1005 0=1772-K 

1010 IF 81744 THEN Q=B-40 

1020 IF Q=1744 THEN POKEQ,81:POKE FNR(Q) „PEEK (FNR (0-41) ) :60T01040 
1030 POKE 0,81:POKE FNR(Q) „PEEK(FNR (Q-1)) 
1040 NEXT K 

1050 FOR K=E-B TOD E: 0=1771-K: IF 0<1744 THEN Q=Q-40 
1060 POKE 9,81: POKE FNR(Q),&6 

1085 NEXT K 

1070 XX=XX+1: GOTO 780 

1086 NEXT T 

1090 FRINT: PRINT: PRINT: PRINT: END 


READY. 
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WARTESCHLANGE BEI EINMANNBEDIENUNG 


WIEVIELE SIMULATIONEN? 1000 
MITTLERE ANKUNFTSZEIT? 5 

MITTLERE BEDIENUNGSDAUER? 4 
MAX.LAENGE DER WARTESCHLANGE? 10 
AUSLASTUNGSGRAD= 84 % 

MITTLERE LAENGE D.WARTESCHLANGE= 1.9 
MITTLERE KUNDENWARTEZEIT= 97.08 
ANZAHL DER EINGETROFF.KUNDEN= 202 
ZAHL DER BEDIENTEN KUNDEN= 194 


GRAFISCHE DARSTELLUNG J/N? J 
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DARSTELLUNG EINER SIMULATION 


EINGETROFFENE BEDIENTE 
KUNDEN KUNDEN 
33 25 
READY. 
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33. WARTESCHLANGE BEI MEHRFACH-BEDIENUNG 


Wird die mittlere Länge der Warteschlange oder die mittlere Kundenwartezeit 
zu groß, so müssen mehrere Bedienungsstellen eingerichtet werden. 
Entsprechend dem vorhergehenden Programm wird der Wartevorgang einer 
Warteschlange simuliert, jedoch bei mehreren Bedienungsstellen. 


Zum folgenden Programm 


Nach Eingabe der mittleren Ankunitszeit und Bedienungsdauer, der maxima- 
len Warteschlangenlänge und der Anzahl der Bedienungsstellen, simuliert das 
Programm für eine vorzugebende Anzahl von Zeiteinheiten den Wartevorgang 
(analog zu Programm 32). 

Es wird die Auslastung der Bedienung, die mittlere Länge der Warteschlange, 
die mittlere Kundenwartezeit und die Anzahl der eingetroffenen Kunden be- 
stimmt. 


Beispiel 


In einem Geschäft mit zwei Bedienungsstellen trifft durchschnittlich alle 
3 Minuten ein Kunde ein und wird durchschnittlich 4 Minuten lang bedient. 


Wie man dem Programmausdruck entnimmt, beträgt die mittlere Kunden- 
wartezeit 3,91 Minuten, obwohl die Auslastung des Personals nur 68% beträgt 
und durchschnittlich nur 1,3 Kunden warten. Wie beim vorhergehenden Pro- 
gramm sind die Ergebnisse zufallsbedingt und können sich bei jedem Pro- 
grammablauf in gewissen Grenzen ändern. 
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100 
120 
125 
150 
140 
160 
170 
190 
210 
220 
240 
250 
260 
270 
280 
290 
300 
320 
340 
350 
360 
370 
380 
370 
410 
420 
430 
450 
460 
470 
480 


REM...esooennnennnnnnn a. WARTESCHLANGE BEI MEHRFACH-BEDIENUNG 


PRINT" 4 MEHRFACH-BEDIENUNG m" 
REM...... ........ .onnensnncen ....... suuuneonunennnnnnn «EINGÄBE 
REM... .oou00esunnennuen ee un nenn nenn nun nn nn nn nn nn» MÜODULD-FUNKTION 


DEF FNM(X)=X-INT((X-1)/NI*N 

REM..... HER ANFLERNR TERN TEEBR NEN . EXPONENTIALVERT. ZUFALLSZAHLEN 
DEF FNZ(X)=INT(-X#LOG(RND(1))+.5) 

DEF FNR(X)=INT(100*X+.5) 

A=0:E=0:B=0 

S1=0:W1=0:L1=0 

INPUT" WIEVIELE SIMULATIONEN"5V 

PRINT: INPUT" MITTLERE ANKUNFTSZEIT"5I 

PRINT: INPUT" MITTLERE BEDIENUNGSDAUER"5J 

PRINT: INPUT" WIEVIELE BEDIENUNGSSTELLEN"3S 

PRINT: INPUT" MAX.LAENGE DER WARTESCHLANGE"5N 

IFABS (5-5. 5) >4. 6THEN270 

DIMC(N,2),S(N): ZA=0: ZB=0 

FOR T=1 TO V 

BEN ee anderen SANKUNFT 
IF A>T THEN 460 

E=E+1 

IF E=B> N THEN PRINT" WARTESCHLANGE ZU LANG": END 
C(FNM(E),1)=T 

C{FNM(E) „2)=FNZ (J) 

REM ee ee “annnunen. „SETZEN DER ZEIT 
A=T+FNZ (I) 

GOTO3SO 

REMe nun nnn- EU RNSE ER EIIENHRREEE RER EIER EL RR 2220... BEDIENEN 
FOR M=1 TO S 

IFS(M)<=T THEN 500 

NEXT M 
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490 
300 
310 
320 
3350 
340 
390 
370 
380 
3970 
600 
610 
620 
630 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
7553 
757 
760 
770 
780 
790 


GOTO 570 

IFB=E THEN 570 

B=B+1 

S(M)=C(FNM(B) ,2)+T 

W=T-C(FNM(B),1) 

Wwi=Wi+W 

GOTO 460 

REM. osoosasunuunununnun. Bonnussennunsunnannennenen neu ZAEHLUNG 
L=E-B 

L1=L1+L 

FOR M=1 TO S 

IFS(M>T THEN 51=S1+1 

NEXT M 

NEXT T 

PRINT"IN AUSLASTUNG ="3FNR(S1/ (V#5))5"%" 

PRINT"=M MITTLERE LAENGE D. WARTESCHLANGE" 5 INT (10%L1/V+.5) 7/10 
PRINT"" MITTLERE KUNDENWARTEZEIT ="5FNR(W1/B) 7100 

PRINT"M ZAHL DER EINGETROFFENEN KUNDEN =";E 

PRINT"= ZAHL DER BEDIENTEN KUNDEN";B 

REM ERREERAHAHRAIHHIAHHHRIHIAIHRIHHIHHIHRIHIAHEIEIERR GRAFIK 
PRINT" MEInteIntel" TAB (20) 5 "KAUFHAUS" 

PRINTTAB (21); CHR$ (110) 5; CHR$ (1835) 5; CHR$ (183) 5; CHR$ (183) 5; CHR$ (109) 
FOR Z=1 T0 4 

PRINTTAB (21) 5;CHR$ (180) 5; SPC (3) 5; CHR$ (170) 


NEXT Z 
PRINT " STAIKInTaIsIsTatainteinTe] ANGEKOMMENE"SPC (11) 5 "BEDIENTE"; 
PRINT" SIAIKIRTMTaTeinTateTatstete] KUNDEN": SPC (14) 5; "KUNDEN" 


=535248: POKE 6+40,1 

POKE 2040,13: POKE 2041,14 
FOR 0=852 TOD 958 

READ Z: POKE Q,Z: NEXT Q 
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800 FOR SI=1 TO V 

810 Y=197 

820 ZF=INT(RND(1)*3) 

830 IFZF=2 THEN GOTO 876 

835 ZA=ZA+1: PRINT" SIKRMEINSINARIKIREIN" 5 SPC (12) 5 "3"5 ZA; m" 

840 POKE 6+21,1:FOR X=0 TO 210 

850 POKE 6,X:POKE G+1,Y 

860 NEXT X 

865 POKE 6+21,0 

870 GOTO 910 

876 ZB=ZB+1: PRINT" SIMIIMIKIIKIKIIRIKIRIKTKN" ; SPC (32) 5 "3" 5 ZB; “1 m" 

880 POKE 6+21,2: FOR X=210 TO 0 STEP-1 

890 POKE G+2,X: POKE G+3,Y 

900 NEXT X 

905 POKE G+21,0 

910 NEXT SI 

920 END 

(OO0- BEN ee een reisen bhRiTE 1 
1010 DATA 0,0,0,1,254,0,7,255, 192,31, 255, 224, 31,255, 240,63, 255, 240, 63, 
1020 DATA 240, 127,127,248, 127,127, 248, 127,71,248, 127,187, 248, 127,251 
1030 DATA 248, 127,251,248, 127,123, 248, 127,135, 248, 63, 255, 240 

1040 DATA 63,255, 240, 31,255, 224,31, 255, 224,7,255,128,1,254,0,0 

ICAO REN een eNee: SPRITE 2 
1080 DATA 0,0,0,0,255,0,3,255, 192,15, 255,240, 15, 255, 240, 31,247, 248,31, 
1100 DATA 248,63,199, 252,63, 151, 252,63,55, 252,63, 247, 252,63, 247,252 
1120 DATA 63,247,252,63,247,252,63,247,252,31,247,248, 31,255, 248,15 
1140 DATA 255, 240,15, 255,240, 3,255, 192,0, 255,0 


READY. 
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| WARTESCHLANGE BEI MEHRFACHBEDIENUNG | 


MEHRFACH-BEDIENUNG 
WIEVIELE SIMULATIONEN? 1000 
MITTLERE ANKUNFTSZEIT? 3 
MITTLERE BEDIENUNGSDAUER? 4 
WIEVIELE BEDIENUNGSSTELLEN? 2 


MAX.LAENGE DER WARTESCHLANGE? 15 
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AUSLASTUNG = 68 % 


MITTLERE LAENGE D. WARTESCHLANGE 1.3 


MITTLERE KUNDENWARTEZEIT = 3.91 


ZAHL DER EINGETROFFENEN KUNDEN = 338 


ZAHL DER BEDIENTEN KUNDEN 338 


ANGEKOMMENE BEDIENTE 
KUNDEN KUNDEN 
338 338 


READY. 
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34. LINEARE OPTIMIERUNG 


Viele wirtschaftliche Probleme wie Produktionsplanung, optimales Mischen 
und Transportprobleme können mit Hilfe der linearen Optimierung gelöst 
werden. 

Unter der linearen Optimierung versteht man die Lösung eines Systems von 
linearen Ungleichungen so, daß eine vorgegebene lineare Funktion (Zielfunk- 
tion genannt) optimal wird. 


Das grundlegende Lösungsverfahren der linearen Optimierung, Simplex- 
Algorithmus genannt, wurde 1947/1948 von dem Mathematiker G.B. Dantzig 
im Auftrag der amerikanischen Luftwaffe entwickelt. Im Rahmen dieses 
Buches ist es nicht möglich, auf die mathematischen Grundlagen des Simplex- 
Verfahrens einzugehen; es wird auf die zahlreiche Literatur verwiesen: [2], 
[12], [14], [16]. 


Eine Fabrik produziert 2 Werkstücke Y1 bzw. Y9, die bei der Fertigung die 
Maschinen A, B, C durchlaufen müssen. Die Produktionskapazitäten werden 
durch folgende Tabelle gegeben: 


Bearbeitungszeit Maschinenkapazität 
Stunden/Stück Stunden/Woche 


Werden von den beiden Werkstücken x1 bzw. x2 Stück gefertigt, so benötigt 
die Maschine A dafür 


2x1 + x2 Stunden. 
Da A höchstens 200 Stunden laufen kann, gilt 
2x1] + x2 S 200. 
Entsprechend gilt für Maschine B 
xı + x2 Ss 120 
und für Maschine C 


x + 3x2 S 240. 


Betragen die Gewinne 2 DM bzw. 3 DM pro Stück, so soll die Gewinnfunk- 
tion (= Zielfunktion) 

G = 2x1 + 3x2 
maximal werden. Da negative Stückzahlen keinen Sinn haben, muß man noch 
— wie in der linearen Optimierung üblich — fordern: 


x120 und x220 
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Die optimale Lösung des Problems ist 
xı=60 und x2=60. 


Das Unternehmen muß also wöchentlich 60 Stück vom Werkstück 1 bzw. 2 
produzieren; der optimale Gewinn beträgt dann 300 DM. 

Ein solches System von linearen Ungleichungen muß jedoch nicht immer eine 
eindeutige Lösung haben. Es kann auch gar keine Lösung geben oder die Lö- 
sung ist nicht eindeutig oder sogar unbeschränkt. 


Zum folgenden Programm 


Das folgende Programm löst beliebige lineare Optimierungsprobleme, deren 
Nebenbedingungen lineare Gleichungen und Ungleichungen sind. Die Neben- 
bedingungen dürfen aber nicht ausschließlich aus Gleichungen bestehen. 


Folgende DATA-Werte werden der Reihe nach im Programm eingelesen: 


MAX bzw. MIN, je nachdem, ob die Zielfunktion minimal oder 
maximal werden soll 

die Anzahl der Unbekannten 

die Anzahl der Ungleichungen der Form "< 

die Anzahl der Ungleichungen der Form ">" 

die Anzahl der Gleichungen 

die Koeffizienten der Zielfunktion 

die Koeffizienten der rechten Seite des Ungleichungssystems 

die Koeffizienten der Ungleichungen bzw. Gleichungen in der 
Reihenfolge wie oben 


166 


Beispiel aus [16] 
Eine Firma verarbeitet einen Rohstoff zu drei Waren Wı, W2 und W3. Je 
Stück benötigt man davon 60 kg für Wi, 100 kg für W>2 und 76 kg für W3. 
An Arbeitszeit benötigt man 5 Std. für Wı, 10 Std. für W2 und 6 Std. für W3. 
Im betrachteten Zeitraum stehen 1600 Arbeitsstunden und 20.000 kg Roh- 
stoff zur Verfügung. Aus technischen Gründen muß von W1 mindestens dop- 
pelt so viel wie von W» produziert werden. Der Gewinn je Stück beträgt 
10 DM an W1, 50 DM an W>» und 23 DM an W3. Welche Stückzahlen müssen 
produziert werden, damit der Gewinn maximal wird? 
Für den Rohstoff ergibt sich die Ungleichung 
60x} + 100x2 + 76x3 <S 20.000 

für die Arbeitsstunden 

5x1 + 10x2 + 6x3 Ss 1600. 
Außerdem muß gelten x] > 2x2 oder 

—x1 + 2x2 + 0.x3 SO. 
Die Zielfunktion 
10x1 + 50x92 + 23x3 

soll maximal werden. 


Nach Eingabe der Daten gemäß Programm ergibt sich die optimale Lösung 
xı = 16, x2=8, x3 = 240 Stück. 
Der maximale Gewinn beträgt 6080 DM. 
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REM. .aunu. Kennanunuennuuuunnuununuunuenan LINEARE OPTIMIERUNG 
PRINT"M 3 LINEARE OPTIMIERUNG m" 

PRINT" BITTE WARTEN SIE EINEN MOMENT...." 

PRINT" "5:FOR Z=1 TO 38:PRINTCHR$(100)5:NEXT Z 


REM. 2.uonuuunooun nun En un E nn un namens en anna enenn. EINGABE 
READ P$: REM..... Kuuuennnuuuuuennsunsmnnn.m . „MINIMUM D.MAXIMUM 
READ Vs REM. „zoeeussunnenunn. ee ANZAHL DER VARIABLEN 
READ R: REM... -ueuusuuunenonunuunne ANZAHL DER <= BEDINGUNGEN 
READ S: REM. ..„uuosennnon. uunnonnc. ANZAHL DER >= BEDINGUNGEN 
READ Tz REM. „onesnunnconuunuusennn ..„..ANZAHL DER = BEDINGUNGEN 
=R+5+T: REM. ..„ouononoauunnunune ANZAHL DER NEBENBEDINGUNGEN 

=M+V+5: REM. .vounuoeuuunenenannennnn en ANZAHL ALLER VARIABLEN 


P=1: IFP$="MIN"THENP=-1 
DIMB(M) ,C(ND,D(iND,ZIND,W(ND,X(ND,Y{N),A(M,N) 


REM. oeosnunnunaseunnane Eee euennnnnnunncn ce. BERECHNUNGEN 
K=1 


FOR J=M+1TO M+V 
Y(J)=K 

K=K+1 

NEXT J 

IF R=0 THEN 370 
K=V+1 

FOR J=1 TOR 
Y{J)=K 

K=K+1 

NEXT J 

FOR I=1 TON 
D(I)=0 

NEXT I 

IF 5=0 THEN 430 
K=M+V+1 
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FOR J=M+V+1 TO N 

Y(D=K 

K=K+1 

NEXT J 

IF S=0 AND T=0 THEN 500 
K=V+R+1 

FORJ =R+1 TO M 

Y(J)=K 

D(J)=10000 

K=K+1 

NEXT J 

FOR I=1 TOM 

X(D=Y(D 

NEXT I 

FOR I=M+1 TO M+V 

READ D(I)z REM. onnnn..- “un... KOEFFIZIENTEN DER ZIELFUNKTION 
D(I)=-D(TD)«#P 

NEXT I 

FOR I=1 TO M 

READ B{I)z REM. oonnaeeennnnnnnnnneennnnnnnnnn ann „RECHTE SEITE 
NEXT I 

FOR I=1 TOM 

FOR J=1 TO N 

IF I=J THEN A(I,J)=1: GOTO 640 
A(1,J)=0 

NEXT J 

NEXT I 

FOR I=1 TOM 

FOR J=M+1 TO M+V 

READ A(I,I): REM. oncneennanennennn MATRIX DER NEBENBEDINGUNGEN 
NEXT J 

NEXT I 

IF S=0 THEN 770 

FOR I=1 T0 8 

AtR+1,M+V+D)=-1 

NEXT I 
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.unnnnnennnnennnne. « AIMPLEX-VERFÄHREN 


IF X{I)=Y(J) THEN PRINT"M UNBESCHRAENKTE LOESUNG! ";END 


760 REM. „.unneoanuannn nn... 
770 FOR I=1 TOM 

780 FOR J=1 TON 

7970 IF X{T) <> Y(J) THEN 810 
800 C(TD)=D(J) 

810 NEXT J 

820 NEXT I 

850 IT=0 

840 FORJ =1 TON 

850 Z(J)=0 

8640 FOR I=1 TO M 

870 Z(P=ZWJ)+C(DIRA(I,J) 
BBO NEXT I 

890 W(J)=Z(J)-DiJ) 

900 NEXT J 

910 Z=0 

920 FOR I=1 TOM 

930 Z=Z+C(D)#B(I) 

940 NEXT I 

950 IT=IT+1 

960 C=W(1):E=1 

970 FOR J=2 TON 

980 IF W(J) <C THEN 1000 
970 CHW(JI:E=J 

1000 NEXT J 

1010 IF C> O THEN 1330 
1020 H=M+V:G=M+1 

1030 IF M=R THEN 1100 
1040 FOR I=1 TO M 

1050 @=R+1 

1060 FOR J=Q TO M 

1070 

1080 NEXT J 

1090 NEXT I 
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1100 FOR K=G TO H 

1110 FOR I=1 TO M 

1120 IF Y(Kd=X ID) THEN GOTO 1150 

1130 NEXT I 

1140 IF W(K)=O THEN 1170 

1150 NEXT K 

1160 GOTO 1180 

1170 FRINT"= DIE OPTIMALE LOESUNG IST NICHT EINDEUTIG." 
1180 PRINT" Ma OPTIMALE LOESUNG"; 

1190 PRINT" NACH"5 IT; "ITERATIONEN. m": PRINT 

1200 FOR I=1 TO M 

1210 IF B{ID<> O THEN GOTD 1240 

1220 PRINT""M ENTARTETE LOESUNG. " 

1250 G60TD 1250 

1240 NEXT I 

1250 FOR I=1 TO M 

1260 PRINT" X("3MID$STR&CX{(T),2,2)5")="5INT(100%B(I)+.5)/100 
1270 NEXT I 

1280 PRINT" DIE UEBRIGEN VARIABLEN HABEN DEN WERT NULL." 
1290 IF P=1 THEN PRINT" MM MAXIMUM ="sABS(ZI: END 

1500 PRINT"MIN MINIMUM ="5ABS(Z) 

1310 END 

1550 F=1E25: D=0 

1540 FOR I=1 TOM 

1550 IF A(1,E) <x=0 THEN 1390 

1360 X=B(T) /ACI,E) 

1370 IF X>=F THEN 1390 

1380 F=X: D=I 

1390 NEXT I 

1400 IF D>O THEN 1430 
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1410 PRINT:PRINT"KEINE LOESUNG IST MOEGLICH.": END 
1430 X=A(D,E) 

1440 B(D)=B(D)/X 

1450 FOR J=1 TON 

1460 A(D,J)=A(D,J)/X 

1470 NEXT J 

1480 FOR I=1 TO M 

1490 IF I=D THEN 1550 

1500 X=A(I,E) 

1510 B{I)=B(I)-X#B(D) 

1520 FORJ =1 TO N 

1530 AII,MD=A(I,J)-X#A(D,J) 
1540 NEXT J 

1550 NEXT I 

1560 C(D)=D(E) 

1570 X(D)=Y(E) 

1580 GOTD 840 

ISFO REN essen MTEN 
1600 DATA MAX 

1610 DATA 3 

1620 DATA 3,0,0 

1630 DATA 10,50, 23 

1640 DATA 20000, 1600, 0 
1650 DATA 60, 100,76 

1660 DATA 5,10,6 

1670 DATA -1,2,0 


READY. 
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LINEARE OPIMIERUNG 


LINEARE OPTIMIERUNG 


BITTE WARTEN SIE EINEN MOMENT.... 


OPTIMALE LOESUNG NACH 4 ITERATIONEN. 


X(3)= 240 
Xt1)= 16 
X(2)= 8 


DIE UEBRIGEN VARIABLEN HABEN DEN WERT 
NULL. 


MAXIMUM = 6080 


READY. 
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35. OPTIMIERUNG EINER FUNKTION EINER VARIABLEN 


Bei bekannter Kosten- und Nachfragefunktion läßt sich der Gewinn optimie- 
ren. Die Nachfragefunktion ist meist linear und läßt sich somit mit der linea- 
ren Regression (siehe Programm 37) bestimmen. Kostenfunktionen können 
meist durch Polynome 3. Grades angenähert werden. Mit Hilfe einer Polynom- 
Regression kann die Funktionsgleichung bestimmt werden. Ein BASIC-Pro- 
gramm zur Polynom-Regression findet sich z.B. in [7]. 


Ist K(x) die Kosten- und N(x) die Nachfragefunktion, so ergibt sich der Er- 
lös aus 


E(x) = xN(x) 
und der Gewinn aus 
G(x) = Ex) — Kix). 


Dabei kann x irgendeine Mengeneinheit, z.B. 100 Stück sein, entsprechend 
werden die Funktionen in bestimmten Geldeinheiten, z.B. 1000 DM gerech- 
net. 

Mit Hilfe der Differentialrechnung könnte man den maximalen Wert der Ge- 
winnfunktion bestimmen. Da aber hier nicht die Kenntnis der höheren Mathe- 
matik vorausgesetzt wird, verwendet das Programm ein Suchverfahren zur Be- 
stimmung des optimalen Werts. Dies hat den Vorteil gegenüber der Differen- 
tialrechnung, daß auch optimale Werte am Rande des untersuchten Bereichs 
gefunden werden. 
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Zum folgenden Programm 


Für das Suchverfahren muß der Bereich der x-Werte eingegeben werden, in 
dem der optimale Wert gesucht werden soll. Ebenfalls einzugeben ist die 
Schrittweite, mit der die Suchschritte durchgeführt werden soll und die Art 
des Optimums MAX oder MIN. 


Beispiel 
Ein Betrieb produziert Ware mit der Kostenfunktion 
Kix) = 0,04x3 - 0,4x2 +3x + 2, 


dabei ist x die Mengeneinheit 100 Stück, die Funktion wird in 1000 DM ge- 
messen. Die Konstante 2 stellt die Fixkosten, der Term 


0,04x3 — 0,4x2 + 3x 
die variablen Kosten dar. Die Nachfragefunktion ist gegeben durch 
N(x) = -0,16x +28. 
Der Erlös bes-:mmt sich daraus zu 
E(x) = xN(x) = -0,16x2 + 2,8x. 
Die Differenz von Erlös und Kosten liefert den Gewinn 
Gix) = -0,04x3 + 0,44x2 - 0,2x — 2. 


Eingabe des Bereichs 1,10 für die Nachfrage 100 — 1000 Stück und einer pas- 
senden Schrittweite, z.B. 0,1, ergibt den optimalen Wert x = 7,1 für 710 Stück. 
Der maximale Funktionswert ist 4,4, entsprechend dem Gewinn von 4400 DM. 


Literaturhinweis: [16] 
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INPUT” MINIMUM ODER MAXIMUM (MIN/MAX) "AS 

PRINT"M GRENZEN D. DEFINITIONSBER.: A,B "5: INPUTA,B 
PRINT: INPUT" SUCHSCHRITTWEITE";H 

PRINT"Mm BITTE GEBEN SIE BEI DEN FOLGENDEN KOEFFIZIENTEN"; 
PRINT" JEWEILS DAS VORZEICHEN MIT AN!® 

PRINT""M KOEFFIZIENT VON X HOCH 3"; : INPUTKS$ 
K3=VAL(K3S$): K3S$=LEFT$(KS$, 1) 

PRINT"M KOEFFIZIENT VON X HOCH 2"; : INPUTK2$ 

K2=VAL (K2$): K2$=LEFT$(K2$,1) 

PRINT"M KOEFFIZIENT VON X HOCH 1"5: INPUTK1$ 
Ki1=VAL(K1$): K1$=LEFT$(K1$,1) 


100 PRINT"M KOEFFIZIENT VON X HOCH 0” 


105 
110 
120 
160 


PRINT" (ODER AUCH ABSOLUTWERT) "; : INPUTKO$ 
KO=VAL (KO$): KO$=LEFT$(KO$, 1) 
PRINTSPC (22); "MNBITTE WARTEN „..." 


REM. -oeosueesnuenunnnunenenunon nun nun ac «DEFINIEREN DER FUNKTION 


170 DEF FNF(XI=K3I#X 1 3+K2#X124+K18X+K0 
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REM. „ouoseunusune ....nn0s .onennunnnunnenn nn ANFANGSBEDINGUNGEN 


200 X=A: X0=X 


210 
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230 


REM ea ereeeeeesBlucHSchH. Elfe 


240 X=X+H: F=FNF(X) 

250 IF A$="MIN" THEN 280 

260 IF F>M THEN M=F: X0=X:REM GODTO 290 

270 GOTO 290 

280 IF F<M THEN M=F: X0=X 

290 IF X%<= B-H+.001 THEN 240 

3510 IF A$="MIN" THEN 330 

320 PRINT" Ian} DER MAXIMALE WERT"3:6G0T0540 

330 PRINT" Im DER KTNIMALE WERT"; 

340 PRINT" DER FUNKTION" 

342 FRINT"N FIX = "SCHR$(150)5K3$5 ABS (K3) 5 CHR$ (154) 5 
345 PRINT"IBRXT3", "M"5K2$5 ABS {K2) 5SCHR$ (154) 5 

359 PRINT"BBXT2"5 "a"5K1$5 ABS (K1) 5; CHR$ (154) 5 "IX"; 
355 PRINT CHR$ (129) 5 K0$5; ABS (KO) 5; CHR$ (154) 

360 PRINT"M LIEGT BEI"3M:PRINT"M FUER X ="5X0 

370 PRINT" MINI": INPUT"WEITERE BERECHNUNGEN J/N":WB$ 
380 IF WB$="J" THEN GOTO 10 

370 PRINT"T1": END 

READY. 
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OPTIMIERUNG E. FUNKTION EINER VARIABLEN 


MINIMUM ODER MAXIMUM (MIN/MAX)? MAX 
GRENZEN D. DEFINITIONSBER.: A,B ? 1,10 
SUCHSCHRITTWEITE? „1 

BITTE GEBEN SIE BEI DEN FOLGENDEN 
KOEFFIZIENTEN JEWEILS DAS VORZEICHEN 
MIT AN! 

KOEFFIZIENT VON X HOCH 3? -.04 
KOEFFIZIENT VON X HOCH 2? +.44 
KDEFFIZIENT VON X HOCH 1? -—.2 
KOEFFIZIENT VON X HOCH 0 


(ODER AUCH ABSOLUTWERT)I? -2 


BITTE WARTEN ... 
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DER MAXIMALE WERT DER FUNKTION 
FiX) = - „04#X13+ „AA8XT2- „28X- 2 
LIEGT BEI 4.445396 


FUER X = 7.0999979798 


WEITERE BERECHNUNGEN J/N? N 


READY. 
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36. RENTABILITATSGRENZE 


Während beim vorhergehenden Programm die Kosten- und Umsatzfunktion 
zur Ermittlung des optimalen Gewinns notwendig waren, kann bei linearen 
Produktionskosten die Rentabilitätsgrenze an Hand der Stückkosten berech- 
net werden. 


Zum folgenden Programm 


Je nach Wahl der Bezugsbasis, wird 1 für die Produktionskapazität oder 2 für 
die Umsatzerwartung eingegeben. | 
Nach Eingabe der Fixkosten, der Stückkosten, des Stückpreises und der ge- 
wünschten Bezugsbasis, wird die Rentabilitätsgrenze der Produktion berech- 
net. Zusätzlich kann noch der Gewinn in Abhängigkeit vom Absatz tabella- 
risch ausgedruckt werden, falls die Produktionskapazität als Bezugsbasis ge- 
wählt wurde. 


Beispiel 


Bei den Fixkosten 1700 DM, den Stückkosten von 3,60 DM und dem Stück- 
preis von 5 DM, wird die Rentabilitätsgrenze bei einer Produktion von 1214 
Stück erreicht. Diese Stückzahl entspricht bei einer Produktionskapazität von 
2000 Stück einem Anteil von 60,71 %. Der tabellarische Ausdruck des jeweili- 
gen Gewinns kann dem Programmausdruck entnommen werden. 


Literaturhinweis: [5] 
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REM: ass ns een .... .RENTABILITAETSGRENZE 
PRINT" 7 3 RENTABILITAETSGRENZE I" 
REM ASS are EINGABE 


PRINT"" WELCHE GROESSE SOLL ALS BEZUGSBASIS" 
PRINT" BENUTZT WERDEN?" 

PRINT" A PRODUKTIONSKAPAZITAET (1)":PRINT" DDER" 
FRINT" UMSATZERWARTUNG (2)3" 

FRINT" 1eleinfafetstelsteıe] "3 = INPUTW 

IF {WS 1ORW>ZI THENPRINT" EINGABEFEHLER": GOTO146 
PRINT" "= INPUT" FESTKOSTEN®;S 
PRINT: INFUT" STUECKKOSTEN"SK 

FRINT:; INFUT" STUECKFREIS"SF 

DEF FNRÜXF=INT(100%X+.5) 7/7100 


Kerken rer eeeere „u... BERECHNUNGEN 
DEF FNRCXI=INT(100%X+.5) /100 


“ ON W GOTO 230,340 


FENE Sie ...„PRODUKTIONSKAPAZITAET ALS BASIS 
PRINT: INPUT" PRODUKTIONSKAPAZITAET"5C 

S=F/{P-K)*C) 

IF S>1 THEN PRINT"® EINGABEFEHLER!TTTI": GOTO 240 

PRINT" ---------------- i 

FRINT"SI RENTABILITAETSGRENZE ="5 INT (5%C+.5) 35 "STUECK" 
PRINT" =": INT(1E4*5+.5)/1005"% DER PRODUKTIONSKAPAZITAET" 
FRINT"M& UMSATZ: "3 FNR(C#P) 5 "DM"5 TAB (20) 5 

FRINTCHR$ (150) "GEWINN: "3 FNR(C#P) - (F+C#K) 5 "DM" CHR$ (154) 
INPUT" TABELLE ERWUENSCHT (J/N) "iA$ 

FRINT"] = i 


-iG IF MID$(A$,1,1)= "J" THEN GOSUB 4.30 


ENT 
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340 REM..... anne Dunn uusennunnn en... UMSATZERWARTUNG ALS BASIS 
350 PRINT: INPUT" ERWARTETER UMSATZ IN STUECK";E 

360 S=F/tP-K) 

375 BRINTIR re u 

380 PRINT""M RENTABILITAETSGRENZE =": INT (S+.5) 5 "STUECK" 

390 PRINT" UMSATZ: "SFNR(E*P) 5 "DM" 

400 PRINTCHR$ (150) "N GEWINN: "3E*#P- (F+E&#K) 5 "DM"SCHR$ (154) 

A410 END 

420 REM. „nos ucnunnuuonnn nun. .nn0nnnn“ see sa.ounac. TABELLE 
430 PRINT" "33 STUECK E", "a3 UMSATZ ®",CHR$(152)"3 KOSTEN E", 
435 PRINTCHR$(150)"3 GEWINN Mu" 

440 C1i=INT(C/10) 

450 FOR X=C1 TOD C STEF Ci 

460 R=X#P 

470 T=F+X#K 

480 I=R-T 

485 J=158: IF I>0 THEN J=129 

490 PRINTCHR$ (J)SSPC(1)5SX,FNR{R),FNR(T),FNR(T) 

S00 NEXT X 

305 FRINTCHR$ (1547 5 

510 RETURN 

READY. | RENTABILITAETSORENZE | 


WELCHE GROESSE SOLL ALS BEZUGSBASIS 
BENUTZT WERDEN? 


FRODUKTIONSKAPAZITAET (1) 
DDER 

UMSATZERWARTUNG (2) 

wa 

FESTKOSTEN? 1700 
STUECKKOSTEN? 3.6 
STUECKFREIS? 5 


PRODUKT IONSKAPAZITAET? 2000 
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RENTABILITAETSGRENZE = 1214 STUECK 
= 60.71 % DER PRODUKTIONSKAPAZITAET 


UMSATZ: 10000 DM GEWINN: 1100 DM 


RENTABILITAETSGRENZE = 1214 STUECK 
= 60.71 % DER PRODUKTIONSKAPAZITAET 
UMSATZ: 10000 DM GEWINN: 1100 DM 


STUECK UMSATZ KOSTEN GEWINN 


200 1000 2420 -1420 
400 2000 3140 -1140 
600 3000 3860 -860 
BOO 4000 4580 -580 
1000 2000 3300 -300 
1200 &000 6020 -20 
1400 7000 6740 260 
1800 8000 7460 340 
1800 7000 8180 820 
2000 10000 8700 1100 
READY. 
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37. LINEARE REGRESSION 


Unter der linearen Regression versteht man die Anpassung einer linearen 
Funktion, meist einer Geraden, an eine Schar von vorgegebenen Punkten so, 
daß die Summe der senkrechten Abstände der Punkte von der Geraden mini- 
mal ist. Dieses Verfahren stammt von dem schon erwähnten deutschen Mathe- 
matiker C.F. Gauß und heißt Methode der kleinsten Quadrate. 


Sind (xi, yi) die Koordinaten der n Punkte, an die die Gerade 
y-axtb 
angepaßt werden soll, so gilt nach der Methode der kleinsten Quadrate 
_ nl&xiy) — (Zxi) (% yj) 
- nZx2; — (Zxj)2 
Iyi -azrıxi 


b = 
n 


dabei bedeuten die Summenzeichen, daß die hinter dem 2 stehenden Terme 


addiert werden müssen. 
Bundesausgaben in Mrd. DM 


1 2 3 4 5 6 7 8 9 10 9 12 Jahr 
n nn 72 73 7 76 %” 7 78 u» 80 8 82 


185 


Zum folgenden Programm 


Nach Eingabe der Anzahl der Punkte und ihrer Koordinaten, berechnet das 
Programm nach der angegebenen Methode die Regressionsgerade. Der Funk- 
tionswert dieser Geraden kann an beliebigen Stellen ausgewertet werden; die 
Regressionsgerade kann auch zur Prognose benützt werden. 


Beispiel 
Die Ausgaben des Bundes betrugen nach [3] 


Zählt man die Jahre ab 1970 (= 0), so erhält man die Regressionsgerade 
y = 13,11x + 85,15. 


Sie zeigt anschaulich, daß die Bundesausgaben vom Stand 85,15 Mrd. im Jahr 
1970 jährlich um durchschnittlich 13,11 Mrd. DM angewachsen sind. Durch 
Einsetzen von x=12 in die Funktionsgleichung erhält man für 1982 die Pro- 


gnose 
242,4 Mrd. DM. 


Wie gut die durch die Regression ermittelten Werte mit den tatsächlichen Wer- 
ten übereinstimmen, kann dem Programmausdruck entnommen werden. 
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REM. ASS er Seen ..„.LINEARE REGRESSION 
PRINT" 4 LINEARE REGRESSION n 

REN. usa ner TU T BERECHNUNGEN 
5=0: T=0: U=0 

v=0: W=O 

DEF FNR{X)=INT(100%%X+.5)/100 

READ N 

DIM X(N),Y(N 

FOR I=1 TON 

READ X(I),Y(D 

5=5+X (1) 

T=T+Y(I) 


 U=SU+X(I)t2 


V=V+Y(Dt2 

W=W+X (I) #YCI) 

NEXT I 

REM...... Euunnnuesununsnennnnnnnnne. « BERECHNUNG DER PARAMETER 
A=(W-S5#T/N) / (U-5#5/N) 

B=(T-Ax#5)/N 

REM. 2osaonann“ Dnnnuasnnsunenneesesnnnnnunununn un nn nn AUSGABE 
PRINT" MM REGRESSIONSGERADE: " 

PRINT" Y ="5 INT(100#A+.5) 7/1005 "IX+"5 INT(100*B+.5) /100 
PRINT" AIR X"5 TAB(&)"Y BEOB."STAB(172"Y BERECH. m" 


FOR I=1 TON 

x=X(1) 

PRINTX5TAB{SIYCDDSTAB(1A)FNR(AXX+B) 

NEXT I 

REM. 2uoesusuonusnun Buuussunsaneseneune ..„.„WEITERE BERECHNUNGEN 
INPUT" WEITERE Y-WERTE GESUCHT (J/N"5A$ 

IF LEFT$(A$,1)="J" THEN 445 

INPUT""] GRAFISCHE DARSTELLUNG (J/N) IBEBEB!": 6% 
IF LEFT$(6$,1)="J" THEN GOTO 600 

END 

INPUT” X-WERT"5X 

PRINT""T 

PRINT""I"XS TAB{16) ;FNR{A*X+B) 

GOTO 410 
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910 


BEN. en RREERTE 
DATA 12 

DATA 0,88.0,1,98.5,2,111.1,3,122.6,4,134.0,5,156.9,6,162.5 
DATA 7,172.0,8,189.5,9,203.4,10,215.7,11,233.0 

REM KERN RREREERKETEITHENIET HEUTE THF HIHI HERREN GRAFIK 
RESTORE 

V=53248 

POKE V+17,59: POKE V+24,24 

FOR 1=1024T02023: POKE I,14: NEXT I 

FOR 1=8192 TO 16383: POKE 1,0: NEXT I 

REN see ae ee BEHSEN 
FOR X= 10 TO 310 

Y=190 

GOSUB 2000 

NEXT X 

FOR Y=190 TO 10 STEP-1 

X=10 

GOSUB 2000 

NEXT Y 

FOR X=10 TO 310 STEP 10 

FOR Y=190 TO 195 

GOSUB 2000 

NEXT Y 

NEXT X 

FOR Y=190 T010 STEP-10 

FOR X=5 TO 10 

GOSUB 2000 


su uusemnm U EEE WESER TERER ) >10 =, | 


REM..s000s0% Leunseuueennnnnune .onuennunuca « . BEOBACHT. Y-WERTE 
GOSUB 1500 


FOR I=1 TO N 

X=X{ID)#10+10 

Y=190-(Y{DD-MIND 

IF YO OR Y>190 THEN GOTO 710 
IF XX10 ORX>319 THEN GOTO 910 
GOSUB 2000 

NEXT I 
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920 
930 
935 
940 
950 
9860 
970 
975 
980 
990 
1000 
1500 
1510 
1520 


REM. oouauunnoa. nnu0sannnn Sunounnnnannnnca . . „ REGRESSIONSGERADE 
FOR I=10 TOD N#10 


{=(1-10)/10 

Y=INT (100%*A+.5) /100#X+INT (100%B+. 5) /100 
Y=190-(Y-MIN) 

IF YO ORY>190 THEN GOTO 980 

X=1 

GOSUB 2000 

NEXT I 

GET Z$: IF Z$=""THENGOTO 990 

POKE V+17,155: POKE V+24,21=: PRINT": END 
ET ET ETF UETEN SORTIEREN 
MIN=Y(1) 

FOR I=1 TON 


1530 IF (Y{TD <MIND THEN MIN=Y(D) 


1540 
1550 


NEXT I 
RETURN 


2000 REM. „ouusaoounuosuuuununonununennusennunun un re u. PUNKT SETZEN 


2010 
2020 
2030 
2040 
2050 
2060 


READ 


XK=8#INT (X/8) 
YK=320*1INT (Y/B) +INT C(Y/8-INT (Y/B8))%*8) 
EX=21 (7-INT((X/8-INT(X/B))#8)) 
SP=8192+YK+XK 

POKE SP,FEEK(SP) OR EX 

RETURN 


Y. 
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LINEARE REGRESSION 


REGRESSIONSGERADE: 


Y= 13.11#*%X+ 85.15 


X Y BEOB. Y BERECH. 
Ö 88 85.15 
1 98.5 98.26 
2 111.1 111.38 
5 122.6 124.49 
4 154 137.6 
9 156.9 150.71 
6 162.5 163.82 
7 172 176.93 
8 189.5 190.05 
9 203.4 203.16 
10 215.7 216.27 
11 2353 229.38 


GRAFISCHE DARSTELLUNG (J/N) 7? N 


R-ADY. 
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38. GLEITENDE DURCHSCHNITTE 


Man unterscheidet im wesentlichen 4 Faktoren, die auf Zeitreihen einwirken: 


a. langfristige Trends, z.B. Inflation 

b. zyklische Einflüsse, z.B. Konjunkturschwankungen 
c. saisonale Einflüsse, z.B. das Weihnachtsgeschäft 

d. irreguläre und zufällige Fluktuationen. 


Aufgabe der Zeitreihenanalyse ist es, Einflüsse dieser Faktoren zu erkennen 
und zu bereinigen. Durch Glätten von Daten können z.B. zufällige Schwan- 
kungen eliminiert werden. 

Im folgenden Programm erfolgt das Glätten von Zeitreihen durch gleitende 
Mittelwertbildung. Eine andere Methode, das exponentielle Glätten, wird im 
folgenden Programm dargestellt. 


Um Monatsdaten mehrerer Jahre zu glätten, verwendet man meist gleitende 
12-Monats-Durchschnitte; d.h. jeder Wert wird so geändert, daß er den Mittel- 
wert seiner 12 Nachbarwerte darstellt. Mittelt man nun noch die geglätteten 
Werte gleicher Monate, z.B. alle Januarwerte, so wird der Trend eliminiert. 
Bezieht man diese Monatsmittel auf ihren Mittelwert (= 100%), so erhält man 
die Indexwerte aller Monate. 


Zum folgenden Programm 


Nach Eingabe der Anzahl der Jahre, der Monatswerte in Form von DATA- 
Anweisungen, berechnet das Programm die gleitenden Monatsdurchschnitte 
und die Monatsindex-Werte. 


Beispiel 


Die folgende Tabelle zeigt den monatlichen Umsatz (in Tsd. DM) eines Ge- 
schäfts für den Zeitraum von vier Jahren: 
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In der graphischen Darstellung sind zum Vergleich auch die ungeglätteten 
Monats-Indexwerte, in der Graphik einfache Mittelwerte genannt, aufgenom- 
men: 


105 
104 
103 
102 
101 


100 


Indexwerte der gleitenden Mittelwerte 
— — — —  Indexwerte der einfachen Mittelwerte 
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REM ns „...n.....GLEITENDE DURCHSCHNITTE 
PRINT"TIN 49 GLEITENDE DURCHSCHNITTE m" 

PRINT" 3 MONAT ®"TAB(18)5"4 INDEXZAHL ®" 

PRINTTAB(14)5"3 GLEITEND EINFACH MEM" 

READ N:REM ANZAHL DER JAHRE 

DIM I(12*N+11),St12#&N+5),Y{N#12),2(12),M$(12),IND(12),MIT (12) 
FOR I=1 TO 12 

READ M$(1) 

NEXT I 

T=12#N 

V=0 

FOR I=1 TON 

FOR J=1 TO 12 

V=V+1 

READ I(V) 


> NEXT J 


NEXT I 


'‘ B=5: M=T-12 


FOR I=1 TON 
FOR J=1 TO 12 
B=B+1 

C=B-6 

FOR K=1 TO 12 
C=C+1 
S(B)=S(B)+I(C) 
NEXT K 


> NEXT J 


NEXT I 

FOR J=6 TO T-7 
Y{J+1)=(ItJ+1) /t (St +S(J+1))/24))%*100 
NEXT J 
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420 FOR I=1 TO 12 
430 Q=1+6 

440 IF @<13 THEN 460 
450 0=0-12 

460 R=0 

470 FOR J=1 TON 

480 Z(@)=Z (DI +Y(RI/CN-1) 
490 R=R+12 

300 NEXT J 

510 6=6+Z7 (®) 

520 NEXT I 

530 5=1200/6 

550 GOSUB 700 

570 FOR I=1 TO 12 


380 PRINT" A"M$ (CI) TAB(15) "R"INT(10*Z (DD *S5+.59)/105 TAB (25) 
585 PRINTCHR$ (150) 5 INT(10*IND(II+.5)/10 
590 NEXT I 


600 PRINTCHR$ (154) 
610 INPUT"GRAFIK J/N"56$ 
615 IF G$="J" THEN GOSUB 900 
616 END 
20 DATA 4 
670 DATA JAN,FER,MRZ, APR, MAI, JUN, JUL, AUG, SEP,OKT,NOV,DEZ 
640 DATA 7.4,7.7,7.3,7.8,8.4,8.5,8.9,8.7,9.1,9.2,8.9,8.6 
650 DATA 8.8,9.1,9.3,9.2,9,9.3,9.8,9.6,10.1,10.3,10.5,10.3 
660 DATA 10.9,11.4,11.8,12,12.2,11.6,11,11.4,12,12.6,13.7,14.4 
670 DATA 14,15,14.9,15.5,15.3,14.5,14.4,13,12,11.5,11.6,12 


700 REM.» sessusonun nass nenn nun en INDEXWERTE DES EINF. MITTELS 
705 DU=0 


710 FOR MO=1 T0 12 

720 FOR J=1T0O N 

730 MIT (MO) =MIT (MO) +I (MO+(J-1) #12) 

740 NEXTJ=MIT (MO) =INT (MIT (MO) /N#10+.5) /10 
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750 
760 
770 
780 
790 
800 
810 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
10640 
1050 
1060 
1070 
1086 
1090 
1100 
1110 
1120 
1130 


DU=DU+MIT (MO) 

NEXT MO 
DU=DU/12 

FOR MO=1 TOD 12 

IND (MO} =100%MIT (MO) /DU 

NEXT MO 

RETURN 

REM FAHRER HRHKKHKERKKEHKENT IHR KT HR KERNE GRÄFIK 
=53248 

POKE V+17,59: POKE V+24,24 

FOR 1=1024T020235: POKE 1,14: NEXT I 
FOR 1=81972T016383: POKE 1,0: NEXT I 
u ununuunasn nano ennnnnan ACHSEN 
FOR X=10 TO 310 

Y=100 

GOSUB 2000 
NEXT X 

FOR Y=1?0 TO 10STEP-1 

X=10 

GOSUB 2000 

NEXT Y 

FOR X=10 TO 310 STEP2O 

FOR Y=100 TO 105 

GOSUB 2000 

NEXT Y 

NEXT X 

FOR Y=190 TO 10 STEP-10 

FOR X=5 TO 10 

GOSUB 2000 

NEXT X 

NEXT Y 
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1140 
1150 
1160 
1165 
1170 
1175 
1180 
1190 
1195 
1200 
1210 

220 
1230 
1240 
1250 
1260 
1265 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1740 
1350 


REN.SEEu ENT een . „EINFACHE MITTELWERTE 
X=9: FOR J=1 TO 11 

Yi1=1INT (10*IND(D+.59) 7/10: Y2=INT (10*IND (J+1)+.593 710 
Y1=100-Y1: Y2=100-Y2: Y1=10*Y1: Y2=10*Y2 
X1=10+(J-1)*20: X2=10+J%*20 

DY=60/ (ABS {Y2-Y1) OR2O) 

FOR X=X1 TO X2 STEP DY 

Y=((X-X1) #(Y2-Y1I /X2-X1))+V1 

Y=Y+100 

GOSUB 2000 

NEXT X 

NEXT J 

REM GLEITENDE MITTELWERTE 
X=9: FOR J=1 TO il 

Y1=1INT (10#Z2 (9 *5+.5)/10: Y2=INT (10%*Z (J+1)x5+.5)/10 
Y1=100-Y1:Y2=100-Y2: Y1=10*Y1: Y2=10*Y2 
DY=10/ (ABS (Y2-Y1) OR2O) 

x1=10+(J-1)*20: X2=10+J*20 

FOR X= X1 TO X2 

Y=C(X-XD#Y2-YI /X2-X0DI)+Vi 

Y=Y+100 

GSOSUB 2000 

NEXT X 

NEXT. J 

GETZ$: IF Z$="" THEN GOTO 1340 

POKE V+17,155: POKE V+24,21: FRINT"T":RETURN 
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2000 REM. „sus ennn. .. 
2010 YK=320#1NT (Y/8) 
zZ020 XK=B#INT (X/8) 
2030 EX=2t1 (7-INTCIX/ 
2040 SP=B1FZ+YK+XK 


+INT((Y/B-INT(Y/B))*8) 


8-INT(X/8))%*8)) 


2050 POKE SF,PEEK(SF) OR EX 


2060 RETURN 


READY. 


GLEITENDE DURCHSCHNITTE | 


Te Zune] 


MONA 


JAN 
FEB 
MRZ 
AFR 
MAI 
JUN 
JUL 
AUG 
SEF 
OKT 
NOV 
DEZ 


GLEITENDE DURCHSCHNITTE 


T INDEX ZAHL 
GLEITEND EINFACH 
98.9 94.3 
102.3 98.9 
105.1 78.9 
104 101.6 
102.6 102.5 
99.3 100.7 
78 100.7 
95.9 97.9 
78.7 798.9 
99.4 99.8 
99.8 102.5 
98.3 103.4 


GRAFIK J/N? N 


READY. 
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PUNKT SETZEN 


INDEXWERTE GLEITENDER/EINFACHER MITTELWERTE | 


Te IS er nv 


100 -—— MONATE 


199 


200 


39. EXPONENTIELLES GLATTEN VON DATEN 


Eine weitere Methode, zufällige Schwankungen zu eliminieren, ist das expo- 
nentielle Glätten. Sind x; die Werte der Zeitreihe, so erhält man die geglätte- 
ten Werte y; über die Vorschrift 


y2=x1 

yirl = axi+t(1-a)yi i=2,3,...,n 
Die Konstante a bestimmt dabei den Einfluß der Nachbarwerte (O<a<1), 
je mehr sich & dem Wert 1 nähert, desto mehr Nachbarwerte werden in die 
gewichtete Mittelwertbildung einbezogen. 
Die Konstante & wird nun so bestimmt, daß die Summe der quadratischen 


Abweichungen zwischen den Werten x; und yj möglichst klein wird. Dieses 
Vorgehen entspricht wieder der Methode der kleinsten Quadrate. 


Zum folgenden Programm 
Die Zeitreihe und die Anzahl ihrer Werte werden in Form von DATA-Werten 
eingelesen. Für jeden Wert von «& für 

0,1::0.2: 03:42. :0,9 


wird die Summe der quadratischen Abweichungen berechnet und diejenigen 
geglätteten Werte ausgedruckt, die das kleinste Abweichungsmaß haben. 


Beispiel 


Der Anteil des Mineralöls am Primärenergie-Verbrauch betrug in der Bundes- 
republik (zitiert nach [3]): 


54,7 

51,5 
1979 
1980 

er 


Einlesen dieser Werte ins Programm liefert die im Programmausdruck gegebe- 
nen Werte. 
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Anteil des Mineralöls am Primärenergieverbrauch in % 


70 71 72 73 74 75 76 77 78 79 80 81 Jahr 


ungeglättete Werte 
een geglättete Werte 


Literaturhinweis: [16] 
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READ N: REM. .„ocusun. . 
DIM X{N),Y(N)D,Z(N) 


PRINT" T":PRINT" EINEN AUGENBLICK..." 


FOR I=1 TON 

RERD X(1) 

NEXT I 

F1=1E20 

FOR A=.1 TO .? STEP.1 
F=0 

YıD)=X(1) 

FOR I=2 TON 
Y{D=ARX(DI+(1-A)#Y(I-1) 
F=F+(Y(D-X(DIt2 

NEXT I 

IF FÄF1 THENGOSUB 380 
NEXT A 

PRINT" IT" 
POKES3Z80, 0: POKESSZB1,11 


ana EXPONENTIELLES GLAETTEN VON DATEN 


ANZAHL DER DATEN 


REM „ooson.na Daun enensonuenannnsnnennunu en nn nun nn nn nn „AUSGABE 


PRINT" #! EXPON.GLAETTEN VON DATENE" 


FRINT" BESTE ANPASSUNG FUER ALPHA="5A1 
PRINT""i ZEITRAUM DATEN GEGLAETTET" 


FOR I=1 TON 

FRINTI,X(T, INT(10*Z(D)+.5)/10 
NEXT I 

END 


203 


3B0: REM.asu en 
390 Fi=F 

400 Al=A 

410 FOR J=1 TON 

420 Z(I=Y(J) 

430 NEXT J 

440 RETURN 

460 DATA 12 


470 DATA 53.1,54.7,55.4,55.2,51.5,52.1,52.9,52.1,52.3,50.7,47.6,44.8 


Lannonsanncnn «0... ZWISCHENSPEICHERN 


READY. 
| EXPONENTIELLES GLAETTEN VON DATEN | 


EXPON.GLAETTEN VON DATEN 
BESTE ANPASSUNG FUER ALFHA= „8 


ZEITRAUM DATEN GEGLAETTET 


1 ISel Sul 
2 34.7 34.4 
3 99.4 33.2 
4 99.2 39.2 
y 31.5 32.2 
6 Zul 32.1 
7 32.9 32.7 
8 J2.1 32.2 
9 32.3 32.5 
10 30.7 Si 

11 47.6 48.5 
12 44.8 45.9 

READY. 
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40. PROGNOSE DURCH EXPONENTIELLES GLATTEN 


Wie die lineare Regression, kann auch das exponentielle Glätten (Programm 
39) zur Prognose herangezogen werden. Für den fehlenden, zu glättenden 
Wert, verwendet man zur Prognose einen Mittelwert der gegebenen Zeitreihe. 
Die Anzahl der Zeitreihenwerte, die gemittelt werden sollen, ist im Programm 
frei wählbar. 


Zum folgenden Programm 


Die Zeitreihe, die Anzahl ihrer Werte, die Anzahl der Werte, über die gemittelt 
werden soll, werden in Form von DATA-Werten eingelesen. 
Zusätzlich zu den a&-Werten von Programm 39 


0.17.02, 035.22» ;09 


werden noch die Werte 0,01 und 0,05 betrachtet. Um abschätzen zu können, 
wie stark der Prognosewert in Abhängigkeit von « variiert, werden alle Pro- 
gnosewerte ausgedruckt. 

Wie bei Programm 39 wird auch derjenige Wert von a& angegeben, bei dem 
die quadratische Abweichungssumme von geglätteten und ungeglätteten Zeit- 
reihenwerten am kleinsten ist. 


Beispiel 


Der Index der Aktienkurse (Jahresdurchschnittswerte) in der BRD seit 1975 
betrug (zitiert nach [3]): 


Die angegebenen Kurse sind bezogen auf den Stand vom 29.12.1972 (= 100%). 
Eingabe dieser Werte ins Programm liefert für 1982 die Prognose 101,9 für 
a=02. 

Gibt man den Prognosewert für 1982 mit den anderen Daten ins Programm 
ein, so erhält man eine Prognose für 1983. Die so erhaltenen Werte werden für 
die folgenden Jahre immer unsicherer. 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
200 
210 
22 

230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


330 


340 
350 
3h0 
370 
380 
720 


REM. anne nnan PROGNOSE DURCH EXPDNENTIELLES GLAETTEN VON DATEN 
REN ee ee en DATENE INGABE 
READ Nz REM. on nnenennnnnnnene BER ERNE IA IEHEIREOEN ENG: ANZAHL DER DATEN 
READ Pz REMa nn nn naennnnnnn ANZAHL DER ZU MITTELNDEN ZEITRAEUME 
DIM Y{N),X(12),5(12) 

REM a ae a 2000. . BERECHNUNGEN 
FOR I=1 TON 

READ Y(1) 

NEXT I 

g=0 


IF P<1i OR P>=N THEN PRINT"DATENFEHLER": END 
DEF FNAOO=INT (10%X+.59) /10 
FOR I=i TO 10 
Xt1)=0 
S{I)=0O 
NEXT I 
FOR I=1 TO F 
5=-5+Y(D) 
NEXT I 
T=5/P 
=.01: M=2 
GOSUB 580 
A=.05: M=3 
GOSUB 680 
FOR J=1 TO 9 
A=J/10 
M=J+3 
GOSUB 580 
NEXT J 
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410 REM. „ooonununa enunensnenunnennnnen.. BESTIMMEN DER FEHLERSUMME 
420 R=S(2): L=2 

450 FOR I=3 TO 12 

440 IF S{ID>R THEN 470 

450 R=S(TD) 

460 L=I 

470 NEXT I 

480 IF L=3 THEN 510 

490 IF L>3 THEN 520 

500 A=.01: GOTD 540 

310 A=.05: GOTO 540 

320 A=.1%#(L-3) 

330 PRINT"77": POKE 53280,0: POKE S53281,11 
340 PRINT" PROGNOSE DURCH EXPON.GLAETTENE" 
350 PRINT" VORHERSAGE FUER ZEITRAUM "5N+1 
360 PRINT"H BESTER WERT FUER ALPHA "5A 

370 PRINT" NACH DER METHODE DER KLEINSTEN QUADRATE" 
580 PRINT"M ALPHA WERT" 

390 PRINT" .O1",FNA(X(2)) 

&00 PRINT" .OS5",FNA(X(ZI) 

610 FOR I=1 TO ? 

620 A=1/10 

630 K=3+1 

640 FRINT A,FNA(X(K)) 

650 NEXT I 

660 END 

&B0O REM. „neun nsunonensunnunn UNTERPROGRAMM EXPONENTIELLES GLAETTEN 
690 Q=P+1 

700 E=0: F=T 

710 FOR I=Q TON 

720 E=E+(F-Y(N)t2 

730 F=AXY(D+(1-AH#F 

740 IF I<>N THEN 770 

750 X(M=F 

760 S(M)=E 

770 NEXT I 

780 RETURN 
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800 DATA 7 
810 DATA 5 
820 DATA 94,102,101,109,106, 100,102 


READY. 


PROGNOSE DURCH EXPONENTIELLES GLAETTEN 


PROGNOSE DURCH EXPON.GLAETTEN 
VORHERSAGE FUER ZEITRAUM 8 


BESTER WERT FUER ALPHA .2 
NACH DER METHODE DER KLEINSTEN QUADRATE 


ALPHA WERT 
.Ol 102.4 
.05 102.3 
„1 102.1 
.2 101.9 
.J3 101.8 
„A 101.7 
.> 101.6 
.6 101.6 
.7 101.6 
8 101.7 
.9 101.8 
READY. 
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Mit dem INA-Programm auf die 
Zukunft programmiert. 


Ja, ich möchte regelmäßig über das Angebot des IWT-Verlages und IWT Software Service 


Informiert werden! 


Mich interessiert: 


Computerei rad — 
P englisch Ü 
IWT-Logo deutsch [] 
Software allgemein U 
deutsch [1 
Elektronik englisch = 
Robotik deutsch & 
Kurs 
D.A.T.A.-Books englisch u 
Fiche Ü 
IMI Filme englisch N 


Ich arbeite mit folgenden Computern: geschäftlich __ 


Vorname, Name 


Firma / Institut 


Abteilung / Position 


Straße /Nr. 


Plz DO Ort 


Mit dem ita-Programm auf die 
Zukunft programmiert. 


Ja, ich möchte regelmäßig über das Angebot des IWT-Verlages informiert werden! 


Mich interessiert: 


Computerei enisen I 
p englisch U 
IWT-Logo deutsch [] 
Software allgemein U 
deutsch [ 
Elektronik englisch N 
Robotik deutsch U 
Kurs 
D.A.T.A.-Books englisch U 
Fiche u 
IMI Filme englisch = 


Ich arbeite mit folgenden Computern: geschäftlich ._. 


Vorname, Name 
Firma / Institut = 


Abteilung / Position 


Straße /Nr. 


Telefon - Vorwahl, Rufnummer 


Der Fachverlag 


privat 


—_  Vssensenar: 1) AV, 74 I 


ice GMBH 


IWT Software Serv 
Altenberger Str. 23b 
5093 Burscheid 


Telefon 0 21 74/6 28 15 - Telex 5 213 989 IWT 


Hiermit bestelle(n) ich /wir zur sofortigen Lieferung : 


850-20- 
401 


CBM 
80XX 


Grafik auf dem 
Commodore 64 


Wirtschaft auf dem 
Commodore 64 


Basic auf dem 
Commodore 64 


IWT-Sprite-Komfortkit 
IWT-Komfortkit 
IWT-Komfortkit 


IWT-Komfortkit 


a DM/SFr. 
inkl. MwSt. 


(Gene desm  den  Grurummn Gem  Gemmeumn emmmeememen  simmmiheen  gimmmehe MibiiiEmGe MEN SEE (id (EEE GE (dAmmmEEEEEEe emmmiieEeEe OiHMMMNEEEee GIMMEEMEN AED  ENEMEEEEED  dEMEENEENENE OEM  dmiNEEEEE am em 
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soo © 

E nc>ü = 

Ww EOn & 

> 00 - Q 

=u0o c 

E 290 2 
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Hiermit bestelle(n) ich /wir zur sofortigen Lieferung die 
folgenden Titel: 


a DM/SFr. 
inkl. MwSt. 


Grafik auf dem 
Commodore 64 


Wirtschaft auf dem 


Commodore 64 


Basic auf dem 
Commodore 64 


